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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.