Cho tệp dữ liệu.dat chứa 5 số nguyên dương. Hãy tính tổng số đó và đưa số đó ra màn hình
1 câu trả lời
uses crt;
var f:text;
a,b,c,d,e:integer;
begin
clrscr;
assign(f,'dulieu.dat');
reset(f);
read(f,a,b,c,d,e);
write('Tong la: ',a+b+c+d+e);
close(f);
readln
end.
Câu hỏi trong lớp
Xem thêm
