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

183

287

Посмотреть ответы 2

Ответы на вопрос:

Narmahanova

Информатика

4,8(30 оценок)

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.