Дано предложение . В нем слова разделены одним пробелом (начальные и конечные пробелв и символ '-' в предложении отсутствуют ) . Определить количество слов в предложении .

1

Ответы и объяснения

2013-03-25T09:46:17+00:00

var

s:string;

i,count:integer;

begin

count:=0;

readln (s);

for i:=1 to length(s) do

if (s[i]=' ') then count:=count+1;

writeln ('В данной строке ',count+1,' слов');

end.