Nhập hai số a và b. Nếu a chia hết cho 2 và b chia hết cho 2, tính ra màn hình tổng a và b; ngược lại nếu a chia hết cho 3 và b không chia hết cho 3, in ra giá trị màn hình hiệu a và b.
USES crt; VAR a, b : integer; BEGIN write('a= '); readln(a); write('b= '); readln(b); IF (a mod 2 = 0) AND (b mod 2 = 0) THEN write('Tong a va b= ',a+b) ELSE IF (a mod 3 = 0) AND (b mod 3 <> 0) THEN write('Hieu a va b= ',a-b); READLN; END.
Uses crt; Var a, b : integer; Begin write('a= '); readln(a); write('b= '); readln(b); IF (a mod 2 = 0) AND (b mod 2 = 0) THEN write('Tong a va b= ',a+b) Else IF (a mod 3 = 0) AND (b mod 3 <> 0) THEN write('Hieu a va b= ',a-b); Readln End.