Question

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

Answer 1

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.

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

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

Answer 2

опять на этом же ошибка(

Answer 3

какой код ошибки?

Answer 4

есть страница вк?

Answer 5

да

Answer 6

дайте ссылку