Viết chương trình đọc 3 số nguyên từ tệp “ input.txt’ . Tính trung bình cộng của 3 số . Kết quat lưu vào tệp output giúp em nhanh với
2 câu trả lời
uses crt;
var f:text; a,b,c:longint;
begin
clrscr;
assign(f,'input.txt');reset(f);
readln(f,a,b,c);
close(f);
assign(f,'output.txt');rewrite(f);
writeln(f,(a+b+c)/3);
close(f);
end.
uses crt;
var f:text;
a,b,c:word;
begin
assign(f,'input.txt');reset(f);
read(f,a,b,c);
close(f);
assign(f,'output.txt');rewrite(f);
write(f,(a+b+c)/3:0:0);
close(f);
end.
