Tính trubg bình các số trong tệp dữ liệu TXT mỗi hàng có 3 số x1,x2,x3 Giúp em với mn ơi em cảm ơn
2 câu trả lời
var f: text;
x1, x2, x3, tb: real;
Begin
Assign(f, 'dulieu.txt'); reset(f);
Read(f, x1, x2, x3);
tb:=(x1+x2+x3)/3;
Write('trung binh: ', tb:10:4);
Readln
End.
program trung_binh;
uses crt;
var f:text;
x1,x2,x3:integer;
begin
clrscr;
Assign(f,'DULIEU.TXT'); reset(f);
while not eof(f) do
begin
readln(f,x1,x2,x3);
write((x1+x2+x3)/3:0:3);
end;
close(f); readln;
end.
