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 18/07/2021 Bởi Serenity 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
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. Bình luận
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.