Viết chương trình nhập vào 2 số a và b, tính tổng 2 số a và b nếu a,b là số chẵn. Tính tích nếu a,b là số lẽ. Tính hiệu 2 số b trừ a nếu b là số lẽ và a là số chẵn.

program ct;

uses crt;

var a,b,tong,tich,hieu:integer;

begin

clrscr;

readln(a,b);

if a and b mod 2=0 then tong:=a+b;

writeln('tong la',tong);

if a and b mod 2<>0 then tich:=a*b;

writeln('tich la',tich);

if a mod 2=0 and b mod 2<>0 then hieu:=b-a

writeln(' hieu la',hieu);

readln;

end.

program ab;

uses crt;

var a,b:integer;

      Tong,Tich,Hieu:longint;

begin clrscr;

   writeln('Nhap 2 so a va b: '); readln(a,b);

       if a and b mod 2=0 then Tong:=a+b;

          writeln('Tong a va b la: ',Tong);

       if a and b mod 2<>0 then Tich:=a*b;

          writeln('Tich a va b la: ',Tich);

       if a mod 2=0 and b mod 2<>0 then Hieu:=b-a;

          writeln('Hieu a va b la: ',Hieu);

readln;

end.
Học tốt!