Дано два числа.если числа четны,то вычислите их произведение,если числа не четны,то их сумму,в остальных случаях вычислите разность этих чисел.
Answers & Comments
068419084
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.
Answers & Comments
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.