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.