строки

[ччч1]

program pret;
var pr:string;
i,n,ks,ka:integer;
begin
ks:=0;
ka:=0;
write('введите предложение ');
readln(pr);
n:=length(pr);
for i:=1 to n do
if(pr[i]<>' ')and (pr[i]<>'.')
k:=k+1
if pr[i]='о' then
ka:=ka+1;
if pr[n]<>''then
ks:=ks+1;
writeln('кол-во слов о-',ka);
end.

дана строка-предложение,все слова разделены в ней пробелами.Подсчитать кол-во слов,в которых имеется не менее двух символов "о"

[Serge_Bliznykov]

насколько я могу судить, написано "кривенько" и с ошибками...
А в чём, собственно, у Вас вопрос?

[netpolice]

согласен с Serge_Bliznykov

Я бы сначала нашел бы все началЫ слов, а после этого проверил бы содержимое каждого слова, место положение слова - от "начало слова" до "начало следуещего слова" - 1. Ну и счетчик какой нить прикрутить к этому.

У Вас я только бледненькая проверка на "начало слова". Остальное честно говоря муть.

[stalker1995s]

Юзай Copy и проверяй каждый символ.