Автор: Guest 27.11.2004 23:40
Здраствуйте! Помогите пожалуйста решить задачу.
Дана строка символов. Определить количество слов, начинающихся с буквы ''а'', вы-вести на печать самое длинное слово, начинающееся с буквы ''а''.
Проверка на слова начинающиеся с буквы - это просто. А вот самое длинное - проблема.
Автор: Jahnerus 28.11.2004 0:07
Код
uses
crt;
var
s:string;
i,j,k,max:integer;
begin
clrscr;
writeln('Vvedite stroky');
readln(s);
insert(' ',s,1);
while pos(' a',s)<>0 do begin
k:=k+1;
i:=pos(' a',s);
j:=1;
while (s[i+j]<>' ') and ((i+j)<=length(s)) do j:=j+1;
if (i+j)<>length(s) then j:=j-1;
if j>max then max:=j;
delete(s,i,2);
end;
if k=0 then writeln('Net slov na bukvy a')
else begin
writeln('Kolichestvo ',k);
writeln('Maximalnaya dlina slova ',max);
end;
readln;
end.