Дано два числа.если числа четны,то вычислите их произведение,если числа не четны,то их сумму,в остальных случаях вычислите разность этих чисел.
Дано два числа.если числа четны,то вычислите их произведение,если числа не четны,то их сумму,в остальных случаях вычислите разность этих чисел.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы