Tin học 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????????????????((((5 sao liền )) 18/07/2021 By Jasmine 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????????????????((((5 sao liền ))
var fi,fo: text; i,tong: integer;begin assign(fi,‘File.inp’); reset(fi); while not eof(fi) do begin readln(fi,i); If i mod 3 = 0 then tong:=tong+i; end; close(fi); assign(fo,‘File.out’); rewrite(fo); write(fo,tong); close(fo); end. 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. Trả lời