Каждая буква русского алфавита закодирована трёхзначным десятичным числом, причём буква А кодируется как 192, а код каждой последующей буквы
на 1 больше кода предыдущей буквы.
Расшифруйте закодированное слово, если известны двоичные эквиваленты десятичных чисел кодов букв:
11010000 11001100 11000000 11010011 11000000

writeln('a[',i,']=',a[i]);

readln;

end.

пломп лпмб_лпмплпмб й об лпмбц_лпмплпмб

(около кола _колокола и на колах _колокола)

function max (x,y : longint) : longint; begin  if x> y then max: =x else max: =y; end; var k : longint; s : string; begin  readln(s);   while (pos('.',s)< > 0)or(pos('! ',s)< > 0)or(pos('? ',s)< > 0) do

begin    k: =k+1;

    delete(s,max(max(pos('.',s),pos('! ',('? ',); end;   writeln(k); end.

номер 4, так как две собаки в этой части не допущены.