Исправьте пожалуйста,прога должна,удалять лишние пробелы в файле,вместо этого удаляет все содержимое?

@Cybermafiozo · Регистрация: 18.10.2010

Author24 — интернет-сервис помощи студентам

Pascal

Program space;
 var
q:text;
s:string;
fname:string;
begin
fname:='finish.txt';
assign(q,fname);
rewrite(q);
while pos('  ',s)>0 do
delete(s,pos('  ',s),1);
write(q,s);
readln;
end.

@Алексaндра · 18.11.2010, 20:43

потому что надо открыть файл для чтения

Pascal

Program space;
uses crt;
 var
q:text;
s:string;
fname:string;
begin
fname:='finish.txt';
assign(q,fname);
reset(q);           {файл открывается для чтения}
read(q,s);          {считывается строка из файла}
rewrite(q);
while pos('  ',s)>0 do delete(s,pos('  ',s),1);
write(q,s);
close(q);            {файл закрывается}
readln;
end.

	18.11.2010, 20:43