Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Var A:integer;
Begin
WriteLn(Введи двузначное число);
Read(A);
if (A mod 10 + A div 10) mod 2 = 0 then Write(Сумма цифр чётная)
else Write(Сумма цифр НЕчётная)
End.