Question

Cho hai tệp văn bản NGUYEN1.txt và tệp NGUYEN2.txt cùng ở ổ đĩa D, mỗi tệp chứa một số nguyên dương ở đầu tệp. Hãy lập trình tạo tệp văn bản NGUYEN12.txt ở ổ D, tệp này chứa tổng hai số nguyên dương ở tệp NGUYEN1.txt và NGUYEN2.txt. xin giúp đỡ ạ

Answer 1

const fi1='nguyen1.txt';

fi2='nguyen2.txt';

fo='nguyen12.txt';

var f1,f2,f3:txt;

a,b:integer;

begin

assign(f1,fi1); reset(f1);

assign(f2,fi2); reset(f2);

assign(f3,fo); rewrite(f3);

readln(f1,a);

readln(f2,b);

writeln(f3,a+b);

close(f1);

close(f2);

close(f3);

end.