Question

Nhập từ bàn phím 2 số nguyên a và b. Tính tổng a và b và ghi kết quả ra tệp "Ketqua.txt"

Answer 1

program tinh_tong;

uses crt;

var

fin,fout:text;

S,a,b:integer;

begin

writeln('Moi nhap a = '); readln(a);

writeln('Moi nhap b = '); readln(b);

assign(fout,'KETQUA.OUT');

rewrite(fout);

S:=a+b;

write(fout,S);

close(fout);

end.