Lập chương trình viết bằng tệp tính tổng tất cả số hạng chia hết cho 3
1 câu trả lời
var f: text;
T: longint;
A: integer;
Begin
Assign(f, 'abcd.xyz'); reset(f);
T:=0;
While not eof(f) do
Begin
Read(f, a);
If a mod 3 = 0 then t:=t+a;
End;
Write('tong la: ', t);
Readln
End.
