Question

[Giang Vũ]

Giả sử có bốn số nguyên lưu trong tệp DỮ LIEU.TXT.Hãy viết một chương trình mở tệp đã cho để tính tích của bốn số nguyên đó và đưa kết quả ra màn hình

Answer 1

[Nguyễn Lê Phước Thịnh]

uses crt;

const fi='dulieu.txt';

var f1:text;

a,b,c,d:integer;

begin

clrscr;

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

readln(f1,a,b,c,d);

writeln(a*b*c*d);

close(f1);

readln;

end.