1)
uses crt;
var n,i:integer;
BEGIN
clrscr;
write('Nhap n:'); readln(n);
write('Cac so le < n la:');
for i:=1 to n do
if i mod 2 =1 then write(i,' ');
readln
END.
2)
uses crt;
var n,i: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 n,i:integer;
BEGIN
clrscr;
write('Nhap n:'); readln(n);
writeln('Bang cuu chuong cua n la:');
for i:=1 to 9 do
writeln(i,'x',n,'=',i*n);
readln
END.
Chạy thử hết r đó