Problem A. Странный прибор
Input file: none
Output file: текстовый ввод
Time limit: 1 second
Memory limit: 64 mebibytes
Разбирая склад древней техники, Катя обнаружила непонятный прибор с клавиатурой и дисплеем.
При включении прибора на дисплее появилось предложение ввести слово на русском языке. По
окончанию ввода слова на дисплее появлялось шестнадцатеричное число.
Результаты исследования приведены в таблице:
Строка Код
олово 15
тол 2
остаток 4A
информатика 495
ромб 4
круг 2
Что получится, если в прибор ввести слово программирование?
Ответы
Ответ дал:
0
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
Ответ дал:
0
Можете на Python переписать?
Ответ дал:
0
Могу на что угодно переписать, но не вижу никакого смысла.
Ответ дал:
0
Перепиши, я на паскале некоторые моменты не понимаю
Ответ дал:
0
Но это Ваша проблема, не так ли? Вы не указали в вопросе язык программирования, что дало мне свободу в выборе того языка, на котором мне было удобно записать алгоритм. Почему я вдруг должен переделывать работу, на которую более получаса потратил?
Похожие вопросы
2 года назад
2 года назад
2 года назад
2 года назад
8 лет назад
8 лет назад
9 лет назад