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 so_le;
uses crt;
var f:text;
A:array[1..1000] of integer;
n,i:integer;
begin
clrscr;
Assign(f,'songuyen.TXT'); reset(f);
n:=0;
while not eof(f) do
begin
n:=n+1;
read(f,A[n]);
end;
for i:=1 to n do
if A[i] mod 2=0 then write(A[i],' ');
close(f);
readln;
end.
