Problem A. Странный прибор Input file: none Output file: текстовый ввод Time limit: 1...

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

Comments

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

---

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

---

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

---

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