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