Viết chương trình nhập và tính tổng 2 số nguyên, giá trị được lưu vào tệp songuyen.txt.

2 câu trả lời

program bai_giai;
uses crt;
var f:text;
    a,b,t:integer;
begin
    clrscr;
    Assign(f,'songuyen.txt');  rewrite(f);
    readln(a,b);
    t:=a+b;
    write(f,a,' ',b,' ',t);
    close(f);
end.

program tinhoc;
uses crt;
var a,b,T: integer;
Begin
clrscr;
Writeln('Nhap hai so a, b'); readln(a,b);
T:=a+b;
Writeln('Tong hai so la:',T:10);
readln
end.