Распечатать самое длинное слово (первое) и подсчитать количество букв "а" в нём - Turbo Pascal
Формулировка задачи:
Распечатать самое длинное слово (первое) и подсчитать количество букв "а" в нём.
Код к задаче: «Распечатать самое длинное слово (первое) и подсчитать количество букв "а" в нём - Turbo Pascal»
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
СОХРАНИТЬ ССЫЛКУ