Tin học 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 18/07/2021 By Alice 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
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. 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. Trả lời