Bài 1:

program sochan;

uses crt;

var n,i:integer;

begin

      clrscr;

      write('Nhap so nguyen n: ');   readln(n);

      write('Cac so chan tu 1 den ',n,' la: ');

      for i:=1 to n do

            if i mod 2=0 then write(i,' ');

      readln;

end.

Bài 2:

program sochiahet;

uses crt;

var n,i:integer;

begin

      clrscr;

      write('Nhap so nguyen n: ');   readln(n);

      write('Cac so chia het cho 3 tu 1 den ',n,' la: ');

      for i:=1 to n do

            if i mod 3=0 then write(i,' ');

      readln;

end.

Bài 1:

program sochan;

uses crt;

var n,i:integer;

begin

      clrscr;

      write('Nhap so nguyen 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.

Bài 1:

Program Chan_;

uses crt;

var a: integer;

begin clrscr;

write('nhap vao so a =');

readln(a);

if ( a mod 2 = 0 ) then write(' a la so chan ')

else

write('a la so le '); readln;

end.

Bài 2:

program sochiahet;

uses crt;

var n,i:integer;

begin

      clrscr;

      write('Nhap so nguyen n: ');   readln(n);

      write('Cac so chia het cho 3 tu 1 den ',n,' la: ');

      for i:=1 to n do

if i mod 3=0 then write(i,' ');

readln;

end.

Bài 3:

program Cac_uoc;

uses crt;

var n,i:longint;

begin clrscr;

writeln('nhap so tu nhien n'); readln(n);

for i:=1 to n do

if n mod i=0 then writeln('Uoc cua n la',n/i:0:0);

readln

end.