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

Question

Информатика

Васюта

9 октября, 15:53

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

+2

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