Зная, что в кодировке аsсii десятичный код каждой строчки латинской буквы на 32 больше кода соответствующей прописной буквы, декорируйте следующее сообщение : 77 105 99 107 101 121 32 77 111 117 115 101

вот тут все правильно)

miky mouse

Var s: string;     bg,k,i,l: integer; begin   write('строка:   ');   readln(s);   i: =1;   bg: =0;   k: =0;   l: =length(s);   while (i< l) do   begin     while (s[i]< > '0') and (i< l) do  i: =i+1;     bg: =i;     while (s[i]='0') and (i< l)   do i: =i+1;     if i=l then bg: =bg-1;     if k< i-bg then k: =i-bg;   end;   writeln('длина макс. последоват. из нулей = ',k); end.     

Var st: string;   z: string[10];   x: string[2]; i,j,k,m: integer;           //новые переменные begin write('введите строку текста - st'); readln(st); k: =0;                       //обнуляем на всякий случай z: ='0123456789'; i: =1; for j: =1 to length(st) do //начало   begin;   for m: =1 to 10 do     if st[j]=z[m] then inc(k);   end; if k=0 then begin;   writeln('в тексте нет цифр');   exit; end;                               //конец while i< =length(st)-1 do begin x: =copy(st,i,2); if (x[1]=x[2]) and (pos(x[1],z)< > 0) then begin delete(st,i,2); insert('две',st,i); i: =i+1; end; i: =i+1; end; writeln('преобразованная строка ', st); end.