Cho 3 số nguyên a,b,c chứa trong tệp B1.TXT tính trung bình cố của a,b,c kết quả ghi vào B2.TXT Giúp mình vs ak
2 câu trả lời
var f1, f2: text;
a, b, c: integer;
Begin
Assign(f1, 'b1.txt'); reset(f1);
Assign(f2, 'b2.txt'); rewrite(f2);
Read(f1, a, b, c);
Write(f2, (a+b+c)/3);
Close(f1); close(f2);
End.
program trung_binh;
var f,g:text;
a,b,c:integer;
begin
Assign(f,'B1.TXT'); reset(f);
Assign(g,'B2.TXT'); rewrite(g);
read(f,a,b,c);
write(g,(a+b+c)/3:0:3);
close(f); close(g);
end.
