Cho tệp "songuyen.TXT" chứa các số nguyên, mỗi số cách nhau một kí tự trắng. Viết chương trình đọc các số nguyên từ tệp trên rồi đưa ra màn hình các số lẻ
2 câu trả lời
var f: text;
a: integer;
Begin
Assign(f, 'songuyen.txt'); reset(f);
While not eoln(f) do
Begin
Read(f, a);
If a mod 2 <> 0 then write(a, ' ');
End;
End.
program Tep;
uses crt;
var fi: text;
i: integer;
begin
clrscr;
assign(fi,'songuyen.TXT');
reset(fi);
while not eof(fi) do
begin
readln(fi,i);
If i mod 2 <> 0 then write(i,' ');
end;
close(fi);
readln;
end.
