Создать любой типизированный файл ввести туда любую строку и подсчитать количество пробелов.Их количество вывести в выходной файл.Плиз ОЧЕНЬ СРОЧНО!!!!!!!

Var
t:text;
s:string:
i,b:integer;
 begin
readln(s); {ввод строки}
i:=0;
b:=pos( ,s);
while b<>0 do
 begin
inc(i);
delete(s,b,1);
b:=pos( ,s);
end;
assign (t, C:/primer.txt); {соединение с файлом primer.txt}
rewrite(t); {подготовка к записи в файл}
write(t,i); {запись в файл значение переменной "i"}
close(t); {завершение работы с файлом}
end.

Создавать файл не обязательно, программа сама его создаст. 

Оцените мой ответ если это то, что Вам нужно.

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