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

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

Задать свой вопрос
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], 'аеёиоуыэюя') gt; 0 then r += p;

   p *= 2

 end;

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

end.

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

24AB

Анжелика Пасатецкая
Сможете на Python переписать?
Карина
Могу на что угодно переписать, но не вижу никакого смысла.
Есения Чипко
Перепиши, я на паскале некие моменты не понимаю
Вера Чубшева
Но это Ваша неувязка, не так ли? Вы не указали в вопросе язык программирования, что отдало мне свободу в выборе того языка, на котором мне было комфортно записать метод. Почему я вдруг обязан переделывать работу, на которую более получаса потратил?
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт