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

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

Question

Романка

20 сентября, 01:02

+1

Ответы (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.