Question

Khai báo “ dulieu.dat “ gồm 2 dòng mỗi dòng chứa 2 số nguyên ghi lên file “tb.dat “ giá trị trung bình cộng của các số trên file “ dulieu.dat”

Answer 1

const fi='dulieu.dat'

fo='tb.dat'

var f1,f2:text;

a,b:real;

begin

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

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

readln(f1,a);

readln(f1,b);

writeln(f2,(a+b)/2:4:2);

close(f1);

close(f2);

end.