9. Кодировочная машина КМ-2017 шифрует слова по особому правилу. Например, если ввести слово «кот», то получится слово «лпу». Девочка Алёна повторила умной машине КМ- 2017 одно и то же слово несколько раз. Алена не выговаривала одну букву, поэтому каждый раз машина выдавала разные сообщения: «тйтлб», «цйцлб», «хйхлб». Какое слово говорила Алена, 1) лагерь; 2) речка; 3) сарай; 4) шишка

ответ

4) шишка

Решение

попробуем получить кодировку для шифрования

каждой букве дадим соответствующую цифру в алфавите

к(12) о(16) т(20)

после кодирования получили

л(13) п(17) у(21)

нетрудно заметить, что при шифровании идёт сдвиг на одну букву

далее машина выдала

т(20) й(11) т(20) л(13) б(2)  декодируем  с(19) и(10) с(19) к(12) а(1)

ц(24) й(11) ц(24) л(13) б(2)  декодируем  х(23) и(10) х(23) к(12) а(1)

х(23) й(11) х(23) л(13) б(2)  декодируем  ф(22) и(10) ф(22) к(12) а(1)

сиска, хихка, фифка

можно увидеть, 1 и 3 буквы повторяются.

Из вариантов ответов подходит только  4) шишка

program xxx;

  var i, n, s : integer;

begin

    write('введите число n=');

    readln(n);

    s: =0;

    i: =2;

    while i< =n do

        begin

          s: =s+i;

            i: =i+2

        end;

    write('сумма четных чисел =', s);

    readln

end.

for i : = 1 to length(s) do

begin

      res : = res + s[i];

      if i mod 2 = 0 then

            res : = res + s[i];

end;

writeln(res);

i : = pos(" ",s); {ищем первый пробел}

delete(s; i; 1); {удаляем первый пробел}

i : = pos(" ",s); {ищем второй пробел, котрый теперь первый}

writeln(s[i-1]); {выдаем знак который находится перед пробелом}