Написать программу паскале: Даны два числа. Увеличить каждое из них в два раза, если их сумма четная, в противном случае увеличить в два раза только первое число.

Question

Ариадна

25 августа, 04:53

+5

Ответы (1)

Знаете ответ?

Сергий · Answer 1

Var x, y:longint;

begin

readln (x, y) ;

if (x+y) mod 2=0 then writeln (2*x,' ',2*y)

else

writeln (2*x,' ', y) ;

readln;

end.