Дан текст. Группы символов, разделенные пробелами и не содержащие пробелы внутри себя, будем называть словами а) Найти какое-нибудь слово, начинающееся с буквы ‘а’. б) Преобразовать данную последовательность, заменяя всякое вхождение слова ‘это‘ на слово ‘то’. в) Найти длину самого короткого слова. — Pascal(Паскаль)

uses crt;
var st:string;
m:array[1..26]of integer;
i:integer;
 
begin
 clrscr;
 write('-> ');
 readln(st);
 for i:=1 to length(st) do inc(m[ord(lowcase(st[i]))-96]);
 
 for i:=26 downto 1 do if m[i]>0 then
 writeln(chr(i+96),' - ',m[i]);
 
 readln;
end.

Похожие записи/страницы:

Leave a Comment

29 − = 19