Một tệp văn bản có tên là INP.TXT chứa đúng 2 số nguyên a,b. Viết chương trình tính tổng, hiệu, tích, thương bằng Pascal

Question

Bài 1: Một tệp văn bản có tên là INP.TXT chứa đúng 2 số nguyên a,b. Tính tổng, hiệu, tích, thương của 2 số. Kết quả ghi ra tệp OUT.TXT

Answer 1

uses crt;
var a, b, tong, hieu, tich : integer;
    thuong : real;
    f1, f2 : text;
begin
        clrscr;
        assign(f1, 'INP.TXT'); reset(f1);
        assign(f2, 'OUT.TXT'); rewrite(f2);
        readln(f1, a, b);
        tong := a + b;
        hieu := a - b;
        tich := a * b;
        thuong := a / b;
        writeln(f2, tong);
        writeln(f2, hieu);
        writeln(f2, tich);
        writeln(f2, thuong:4:1);
        close(f1); close(f2);
        readln;
end.

Chúc bạn học tốt!

_thanhtrong_