Даны два файла произвольного типа. Поменять местами их содержимое.
>Решение Pascal
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | program File42; var Name1,Name2:String; F_1,F_2: File; begin Write('File1: '); Readln(Name1); Assign(F_1,Name1); Write('File2: '); Readln(Name2); Assign(F_2,Name2); Rename(F_1,'~'+Name1); Rename(F_2,Name1); Rename(F_1,Name2); end. |