Кассир забыл пароль к сейфу, но помнил алгоритм его получения из строки «ayy1yabc55»: если последовательно удалить из строки цепочки символов «yy» и «abc», а затем поменять местами символы a и y, то полученная последовательность и будет паролем. определите пароль.

Пароль от сейфа :   y1a55

Соответствие таблиц Windows и КОИ-8:

('ё', 'Ё', 'T', 'ю', 'а', 'б', 'ц', 'д', 'е', 'ф',

('T', 'Ё', 'ё', 'А', 'Б', 'В', 'Г', 'Д', 'Е', 'Ж',

'г', 'х', 'и', 'й', 'к', 'л', 'м', 'н', 'о', 'п',

'З', 'И', 'Й', 'К', 'Л', 'М', 'Н', 'О', 'П', 'Р',

'я', 'р', 'с', 'т', 'у', 'ж', 'в', 'ь', 'ы', 'з',

'С', 'Т', 'У', 'Ф', 'Х', 'Ц', 'Ч', 'Ш', 'Щ', 'Ъ',

'ш', 'э', 'щ', 'ч', 'ъ', 'Ю', 'А', 'Б', 'Ц', 'Д',

'Ы', 'Ь', 'Э', 'Ю', 'Я', 'а', 'б', 'в', 'г', 'д',

'Е', 'Ф', 'Г', 'Х', 'И', 'Й', 'К', 'Л', 'М', 'Н',

'е', 'ж', 'з', 'и', 'й', 'к', 'л', 'м', 'н', 'о',

'О', 'П', 'Я', 'Р', 'С', 'Т', 'У', 'Ж', 'В', 'Ь',

'п', 'р', 'с', 'т', 'у', 'ф', 'х', 'ц', 'ч', 'ш',

'Ы', 'З', 'Ш', 'Э', 'Щ', 'Ч', 'Ъ');

'щ', 'ъ', 'ы', 'ь', 'э', 'ю', 'я');

Объяснение:

1)

var num1, num2, i, res: integer;

begin

  Write('Введите числа >>> ');   {Нет -Ln, ввод чисел будет происходить на первой строке}

  ReadLn(num1, num2);   {Вводить числа через пробел, подряд}

  res:=0;   {Обнуляем счетчик, иначе результат будет неожиданный}

  for i:=1 to num2 do res:=res + num1;   {Прибавляем num1 к счетчику res num2 раз}

  Writeln(res); {Выводим}

  ReadLn

end.

2)

var a,b,P:integer;

   kv:String;

begin

writeln ('Введите геометрическую фигуру kv или pr');

Readln(kv);

if (kv = 'kv') then begin

write ('Введите сторону квадрата');

readln (a);

P:=a*4;

writeln('P= ',P);

end

else begin

writeln('ВВедите a и b');

readln(a,b);

P:=(a+b)*2;

writeln('P=',P);

end;

end.

3)

var

 a, b, c, P: real;

begin

 writeln('Введите два катета прямоугольного треугольника:');

 readln(a, b);

 P := a + b; { <-- сумма катетов }

 c := sqrt(sqr(a) + sqr(b)); { <-- гипотенуза с }

 P := P + c; { <-- периметр P }

 writeln('Результат:');

 writeln(' c = ', c:0:2);

 writeln(' P = ', P:0:2);

 readln

end.