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.
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!