Tin học 1/ Giả sử tệp DULIEU.TXT chứa các số nguyên, các số phân cách nhau bởi dấu cách. Viết ct tính tổng các phần tử chia hết cho 3 trong tệp 2/ viết ct ghi 18/07/2021 By Savannah 1/ Giả sử tệp DULIEU.TXT chứa các số nguyên, các số phân cách nhau bởi dấu cách. Viết ct tính tổng các phần tử chia hết cho 3 trong tệp 2/ viết ct ghi dãy số từ 1 đến 100 vào tệp DAYSO.TXT
Bài 1: program chia_het_3; uses crt; var f:text; n:integer; begin clrscr; Assign(f,’DULIEU.TXT’); reset(F); while not eof(f) do begin read(f,n); if n mod 3=0 then write(n,’ ‘); end; close(f); readln; end. Bài 2: program inday; uses crt; var f:text; i:byte; begin Assign(f,’DULIEU.TXT’); rewrite(f); for i:=1 to 100 do write(f,i,’ ‘); close(f); end. Trả lời