Viết ct đọc dữ liệu từ tệp bt1.txt ( gồm các số nguyên mỗi số cách nhau 1 kí tự trống). Tính trung bình các số là bội của 3 và ghi kết quả vào tệp mới có tên là kq2.txt
1 câu trả lời
program bai_giai;
var f,g:text;
n,t,d:longint;
begin
Assign(f,'bt2.txt'); reset(f);
Assign(g,'kq2.txt'); rewrite(g);
t:=0; d:=0;
while not eof(f) do
begin
read(f,n);
if n mod 3=0 then
begin
t:=t+n; d:=d+1;
end;
end;
write(g,t/d:0:2);
close(f); close(g);
end.
Câu hỏi trong lớp
Xem thêm
