Написать программу, объясните.

Ввести двухзначное число. Если сумма цифр числа четная, то увеличить число на 2, в противном случае уменьшит на 2.

Question

Гора

20 июня, 02:06

+4

Ответы (1)

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

Галика · Answer 1

var a: integer;

begin

write ('Введите число: ');

read (a);

if odd (a mod 10 + a div 10) then a : = a - 2

else a : = a + 2;

write (a)

end.

Написать программу, объясните.Ввести двухзначное число. Если сумма цифр числа четная, то увеличить число на 2, в противном случае уменьшит на 2.