Question

Viết CT đọc dữ liệu từ tệp BAITAP. TXT chứa các caejp giá trị a, b( các số cách nhau bởi dấu cách). Tính đưa ra màn hình tổng tích các số. Mn giúp em với ạ!!

Answer 1

uses crt;

const fi='baitap.txt';

var f1:text;

a,b:real;

begin

clrscr;

assign(f1,fi); reset(f1);

readln(f1,a,b);

writeln('Tong cua hai so la: ',a+b:4:2);

writeln('Tich cua hai so la: ',a*b:4:2);

close(f1);

readln;

end.