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

Question

Анна Ананьева

Информатика

5 июля, 15:56

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

+2

Ответы (1)

Знаешь ответ на этот вопрос?

Сергей Семенов · Answer 1

Program p1;

Var x, y, z:integer;

Begin

Writeln ('Введите два целых числа');

Readln (x, y);

z:=x+y;

If z mod 2=0 then writeln ('Сумма чётная:', x*2,', ', y*2)

else writeln ('Сумма не чётная:', x*2);

readln;

end.