ПОМОГИТЕ ПОЖАЛУЙСТА!*О*
составить программу, которая запрашивает 2 числа если они оба четные, то сумма. Если они разные то найти произведения

1

Ответы и объяснения

2012-11-15T12:26:22+00:00

var

a,b,pr,pr1:real;

begin

read(a,b);

if ((a mod 2)=0) and ((b mod 2)=0) then

pr:=a+b;

if a<>b then pr1:=a*b;

write(pr,pr1);

end.