Проверьте программу! program f4; var f1, f2 : text; - вопрос №412112773459 от vehera087 06.05.2020 14:45

Question

Информатика: Проверьте программу! 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.

vehera087 · Answer

Проверил, ошибок нет. Входной файл переписывается в выходной....

Проверьте программу! 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.