Дано 2 х значное число определить является ли сумма цифр четной

Question

Информатика

Симоня

5 мая, 01:18

Дано 2 х значное число определить является ли сумма цифр четной

+1

Ответы (1)

Знаете ответ на вопрос?

Петюся · Answer 1

Var A:integer;

Begin

WriteLn ('Введи двузначное число') ;

Read (A) ;

if (A mod 10 + A div 10) mod 2 = 0 then Write ('Сумма цифр чётная')

else Write ('Сумма цифр НЕчётная')

End.