Строки, одинаковые буквы Опции

[Drenchick]

вводим слова через пробел. найти количество слов которые вмещают 3 буква "а"

[Bokul]

Вот чуть-чуть подравил код TS*.
Тепер программа правильно находит число слов, но всеравно виснет, если строка
не кончается пробелом, хотя я добавил проверку на конец строки...
Почему?

Код

var
s:string;
i,count_a,count_words:byte;
begin
readln(s);
i:=0;
count_a:=0;
count_words:=0;
while i<=length(s) do
begin
  inc(i);
  if s[i]='a' then
  begin
   inc(count_a);
   repeat    
    inc(i);
    if s[i]='a' then inc(count_a);
   until (s[i]=' ') or (i=length(s)); {Добавлен оператор or и еще одно условие}
   if count_a=3 then inc(count_words);{Перемещено}
   count_a:=0;
   dec(i);  
  end;
end;
    
writeln('Koluchestvo slov s 3 bykvamu a = ',count_words);
end.

Сообщение отредактировано: Bokul - 26.05.2006 6:41