Составить программу для определения количества слов в предложении

Question

Составить программу для определения количества слов в предложении

Answer 1

Program A;

var

c:char;

s:integer;

begin

s:=0;

while not eoln do //пока не конец строки

 begin

  read(c);

  if c=' ' then

   s:=s+1;

end;

write(s+1);

end.

Comments

Если не сложно, отметьте как лучшее.

---

а что после while not

---

while not eoln do. eoln - end of line - конец строки. Т.е. Продолжать цикл, пока НЕ конец строки.

---

пока не конец строки в скобках писать?

---

Нет.

---

А почему же вы отметили ответ как нарушение?

---

я нечайно

---

извините пожалуйста