Размещено 5 лет назад по предмету
Информатика
от Sorrynoname
проверьте программу! 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.