Question

Подсчитать количество слов в строке?

Answer 1

program aa;
var i,count:integer;
      s : string;
begin
read(s);
count:= 0;
for i:=1 to length(s) do if s[i] = ' ' then count := count + 1;
write(count);
end.

Какой у вас компилятор?

Answer 2

паскаль абц или турбик?

Answer 3

не важно.