Затем считать f2 - c:\temp\f2.txt
И все это записать в f3 - c:\temp\f3.txt
Вот что накодил.
program laba;
var f1, f2, f3:text;
a:integer;
begin
assign(f1, 'c:\temp\f1.txt');
reset(f1);
assign(f2, 'c:\temp\f2.txt');
reset (f2);
assign (f3, 'c:\temp\f3.txt');
rewrite(f3);
while not eof(f1) do
begin
read (f1,a);
write (f3, a);
end;
append(f3);
while not eof(f2) do
begin
read(f2,a);
write(f3,a);
end;
write('complete');
close(f1);
close(f2);
close(f3);
end.
Все ли сделано верно?
Сообщение отредактировано: saur -