Question

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

Answer 1

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