1/
uses crt;
var i,n: integer;
begin
clrscr;
write ('nhap n: '); readln (n);
write ('cac so chia het cho 3: ');
for i:=1 to n do
if i mod 3<>0 then write (i,' ');
readln;
end.
2/
uses crt;
var i,n: integer;
begin
clrscr;
write ('nhap n: '); readln (n);
write ('cac uoc cua n la: ');
for i:=1 to n do
if n mod i=0 then write (i,' ');
readln;
end.
3/
uses crt;
var i,n: integer;
begin
clrscr;
write ('nhap n: '); readln (n);
write ('cac so chan la: ');
for i:=1 to n do
if i mod 2=0 then write (i,' ');
readln;
end.