Viết chương trình đọc dữ liệu từ tệp DATA.TXT chia các số nguyên. Tìm các số chia hết cho 3 và ghi vào tệp KETQUA.TXT
Viết chương trình đọc dữ liệu từ tệp DATA.TXT chia các số nguyên. Tìm các số chia hết cho 3 và ghi vào tệp KETQUA.TXT
uses crt;
var n:integer;
fi,fo:text;
BEGIN
clrscr;
assign(fi,’Data.txt’);
assign(fo,’Ketqua.txt’);
{$I-} reset(fi); {$I+}
if ioresult<>0 then
begin
rewrite(fi);
reset(fi);
end;
rewrite(fo);
while not eof(fi) do
begin
read(fi,n);
if n mod 3=0 then writeln(fo,n);
end;
close(fo); close(fi);
END.
Tệp vào là các số nguyên trên cùng 1 dòng nha.
Chúc bạn học tốt!