Дано 2х значное число определить является ли сумма цифр четной
Дано 2х значное число определить является ли сумма цифр четной
Гость
Ответ(ы) на вопрос:
ГостьVar A:integer;
Begin
WriteLn('Введи двузначное число');
Read(A);
if (A mod 10 + A div 10) mod 2 = 0 then Write('Сумма цифр чётная')
else Write('Сумма цифр НЕчётная')
End.
Не нашли ответ?
Похожие вопросы