Problem a. странный прибор input file: none output file: текстовый ввод time limit: 1 second memory limit: 64 mebibytes разбирая склад древней техники, катя обнаружила непонятный прибор с клавиатурой и дисплеем. при включении прибора на дисплее появилось предложение ввести слово на языке. по окончанию ввода слова на дисплее появлялось шестнадцатеричное число. результаты исследования в таблице: строка код олово 15 тол 2 остаток 4a информатика 495 ромб 4 круг 2 что получится, если в прибор ввести слово программирование?

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.

в условии не указано но для кодирования используется фраза "в памяти " при этом для нахождения кода шифрованной буквы нужно к коду исходной буквы прибавить код буквы из предложения к первой букве прибавляем код первой буквы предложения ко второй код второй итд т.

а для расшифровки эти коды нужно вычитать, получаем

в   п   а   м   я

3   17   1 14 33

п   щ     о     я     к

17 27   16   33   17

-

3   17   1     14   33

14 10 15   19     17

м   и   н     с       к

н     щ     ё   п

15   27   7     17

-

3     17   1     14 

12   10   26   3

к     и     е     в

первая программа считает сумму входящих в строку цифр стоящих на местах с нечетными номерами, начиная с первой, если это буква то вместо нее берется 0(ноль)

результат выполнения

аб2в457где245*ж0247025020

2) 

var s, r: string; i: integer;

begin readln(s); r : = ''; for i : = 1 to length(s) do if s[i] < > 'c' then r : = r + s[i]; writeln(r); end.