Прога на String Опции

[Guest]

Здраствуйте! Помогите пожалуйста решить задачу.

Дана строка символов. Определить количество слов, начинающихся с буквы ''а'', вы-вести на печать самое длинное слово, начинающееся с буквы ''а''.

Проверка на слова начинающиеся с буквы - это просто. А вот самое длинное - проблема.

[Jahnerus]

Код

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.

Сообщение отредактировано: Jahnerus - 27.11.2004 20:10

[Anton]

Спасибо!
Будем знать