Cho tệp SO.TXT chứa các số nguyên liên tiếp đuocj phân cách với nhau bởi dấu cách và không kết thúc bằng kí tự xuống dòng.Hãy đọc dữ liệu vật đưa ra màn hình các số chẵn và chia hết cho 3
1 câu trả lời
uses crt;
var i, n : integer; f : text;
begin
clrscr;
assign(f,'SO.TXT'); reset(f);
while not eof(f) do
begin read(f, n);
if (n mod 2 = 0) and (n mod 3 = 0)
then write(n,' '); end; close(f);
readln
end.
