Question

Дано два числа.если числа четны,то вычислите их произведение,если числа не четны,то их сумму,в остальных случаях вычислите разность этих чисел.

Answer 1

program pas;
var a,b,c:integer;
begin
readln(a,b);
if(a mod 2=0) and (b mod 2=0) then c:=a*b
else if(a mod 2=1) and (b mod 2=1) then c:=a+b
else c:=a-b;
write(c);
end.