Распечатать самое длинное слово (первое) и подсчитать количество букв "а" в нём - Turbo Pascal

Формулировка задачи:

Распечатать самое длинное слово (первое) и подсчитать количество букв "а" в нём.

Код к задаче: «Распечатать самое длинное слово (первое) и подсчитать количество букв "а" в нём - Turbo Pascal»

textual
uses CRT;
var
   s,max: String;
   k,i: Integer;
begin
clrscr;
       write('s=');
       readln(s);
k:=pos(' ',s);
if k > 0
   then max:=''
   else max:=s;;
while k > 0 do begin
      if length(copy(s,1,k-1)) > length(max)
         then max:=copy(s,1,k-1);
      delete(s,1,k);
      k:=pos(' ',s);
   end;
if length(s) > length(max)
   then max:=s;
writeln('Самое длинное слово: ',max);
k:=0;
for i:=1 to Length(max) do
    if max[i]='a' then inc(k);
    Writeln('Буква "а" встречается',' ',k,' ','раз');
Readln;
end.

14   голосов, оценка 4.143 из 5


СОХРАНИТЬ ССЫЛКУ