Проверьте программу! program f4; var f1, f2 : text; - вопрос №27741364121 от danil24451 30.08.2020 09:56

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.

danil24451 · 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.