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
1 câu trả lời
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,'DAYSO.TXT'); rewrite(f);
for i:=1 to 100 do write(f,i,' ');
close(f);
end.
