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.

Answer 2

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

Answer 3

Нет.

Answer 4

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

Answer 5

я нечайно

Answer 6

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