ПрофессорНиколаевич

Verified answer

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.