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

Question

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

Comments

где подсчитать????

---

В паскалях

---

окей тогда я незнаю

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.

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

Comments

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

---

не важно.