1:

uses crt;

var n,i:integer;

begin

clrscr;

write('n='); readln(n);

if n<=0 then writeln('yeu cau ban nhap lai')

else

begin

writeln('cac so chan trong khoang tu 0 toi ',n,' la:');

for i:=0 to n do

if i mod 2=0 then write(i:4);

end;

readln;

end.

2:

uses crt;

var a,b,tam:integer;

begin

write('a='); readln(a);

write('b='); readln(b);

if a<=b then writeln('yeu cau ban nhap lai')

else

begin

tam:=a;

a:=b;

b:=tam;

writeln('gia tri cua a sau khi doi la: ',a);

writeln('gia tri cua b sau khi doi la: ',b);

end;

readln;

end.

Var i,n,s:integer;

begin

readln(n); s:=0;

for i:=1 to n do

if i > 0 then s:=s+i;

writeln(s);

end.

Hiệu số tuổi giữa hai mẹ con sẽ không thay đổi ( vì khi tuổi mẹ tăng thêm bao nhiêu thì tuổi con cũng tăng thêm bấy nhiêu ) . Vậy nên cách đây 3 năm mẹ vẫn hơn con là 24 tuổi . 

Coi số tuổi của mẹ là 4 phần tuổi con là 1 phần như thế . 

Hiệu số phần bằng nhau là :

        4 - 1 = 3 ( phần )

Tuổi mẹ cách đây 3 năm là : 

         24 : 3 x 4 = 32 ( tuổi )

Tuổi mẹ hiện nay là :

         32 + 3 = 35 ( tuổi )

Tuổi con hiện nay là :

        35 - 24 = 11 ( tuổi )

                    Đáp số : con : 11 tuổi 

                                  mẹ : 35 tuổi

                      Chúc bạn học tốt Luu Bach Nghi