Задача ** паскале: посчитать кол-во пробелов в тексте.

Question

Задача на паскале:
посчитать кол-во пробелов в тексте.

Answer 1

Var a:string;
i,b:integer;
begin
read(a);
b:=0;
for i:=1 to length(a) do
if a[i]=' ' then b+=1;
writeln(b);
end.