Question

Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Найти количество слов в строке.

Answer 1

var

s: string;

i,count: integer;

begin

count:=1;

readln(s);

for i := 1 to Length(s) do

if s[i] = ' ' then inc(count,1);

writeln(count)

end.