Имеются два файла одинакового размера элементами которого являются отдельные символы....

Question

Имеются два файла одинакового размера элементами которого являются
отдельные символы. Переписать с сохранением порядка следования элементы
первого файла во второй а элементы второго файла в первый. использовать
вспомогательный файл. (написать в паскале надо программу)

Answer 1

Const n1='file1'; n2='file2'; n3='file3';
var f1,f2,f3:file of char; c:char;
begin
assign(f1,n1); assign(f2,n2); assign(f3,n3);
reset(f1); rewrite(f3);
while not(eof(f1)) do begin read(f1,c); write(f3,c) end;
close(f1); close(f3);
reset(f2); rewrite(f1);
while not(eof(f2)) do begin read(f2,c); write(f1,c) end;
close(f1); close(f2);
reset(f3); rewrite(f2);
while not(eof(f3)) do begin read(f3,c); write(f2,c) end;
close(f3); close(f2);
erase(f3)
end.