Question

Đọc dữ liệu gồm 3 số thực từ tệp BT.txt sau đó tính trung bình cộng của 3 số trên và ghi vào tệp KT.txt

Answer 1

const fi='bt.txt';

fo='kt.txt';

var f1,f2:text;

a,b,c,tbc:real;

begin

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

assign(f2,fo); rewrite(f2);

readln(f1,a,b,c);

tbc:=(a+b+c)/3;

writeln(f2,tbc:4:2);

close(f1);

close(f2);

end.