Дано предложение. Выведите на экран те слова в которых буква "о" встречается дважды.

[Кристинааа]

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

[Alex11223]

Где не выводит? Я еще не умею получать код из вашего мозга посредством телепатической связи по IP.

[Кристинааа]

uses crt;
var i,k:integer;
s:string;
begin
clrscr;
readln(s);
  for i:=1 to length(s) do
  if s[i]='o' then k:=k+1;
  if k=2 then write(s,' ');
 readkey;
 end.

это вообще правильная программа?результат не выводит на экран...


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Jaguar83]

Хорошо... Подскажу вам, в каком направлении дальше двигаться.

1-ая ошибка. Вам дано ПРЕДЛОЖЕНИЕ, и из него нужно получить слова.
и потом уже в каждом слове считать букву "о".
2-ая ошибка. Нет инициализации счетчика k:=0;
Из-за этого переменной k присваивается случайное значение.

[Alex11223]

Подсказка к 1 ошибке: обычно в таких задач удобно слова заносить в массив строк. В поиске можно найти 10050 примеров решений подобных задач http://www.programmersforum.ru/showt...369#post398369

Из-за этого переменной k присваивается случайное значение.

В Паскале 0 присваивается. Но конечно все равно лучше инициализировать.

[Кристинааа]

Спасибо вам большое))))))))