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

Question

Информатика

Мерона

17 июня, 00:13

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

+4

Ответы (1)

Знаете ответ на вопрос?

Иоанна · 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.