Проверьте программу!Program f4;var f1, f2 : text; s: string ;begin Assign(f1,'t1.txt'); Assign(f2,'t2.txt'); Reset(f1); Rewrite(f2); while not eof(f1) do begin readln(f1, s); writeln(f2,s); end; close(f1); clo...
Проверьте программу!
Program f4;
var f1, f2 : text;
s: string ;
begin
Assign(f1,'t1.txt');
Assign(f2,'t2.txt');
Reset(f1);
Rewrite(f2);
while not eof(f1) do
begin
readln(f1, s);
writeln(f2,s);
end;
close(f1);
close(f2);
end.
Ответ(ы) на вопрос:
Проверил, ошибок нет. Входной файл переписывается в выходной.
Не нашли ответ?
Похожие вопросы