Problem A. Странный прибор
Input file: none
Output file: текстовый ввод
Time limit: 1 second
Memory limit: 64 mebibytes
Разбирая склад древней техники, Катя обнаружила непонятный прибор с клавиатурой и дисплеем.
При включении прибора на дисплее появилось предложение ввести слово на русском языке. По
окончанию ввода слова на дисплее появлялось шестнадцатеричное число.
Результаты исследования приведены в таблице:
Строка Код
олово 15
тол 2
остаток 4A
информатика 495
ромб 4
круг 2
Что получится, если в прибор ввести слово программирование?

Можете на Python переписать?

Могу на что угодно переписать, но не вижу никакого смысла.

Перепиши, я на паскале некоторые моменты не понимаю

Но это Ваша проблема, не так ли? Вы не указали в вопросе язык программирования, что дало мне свободу в выборе того языка, на котором мне было удобно записать алгоритм. Почему я вдруг должен переделывать работу, на которую более получаса потратил?

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var s := ReadlnString.ToLower;

 var (p, r) := (1, 0);

 for var i := s.Length downto 1 do

 begin

   if Pos(s[i], 'аеёиоуыэюя') > 0 then r += p;

   p *= 2

 end;

 System.Convert.ToString(r, 16).ToUpper.Println

end.

программирование24AB