Работа в паскале. составьте программу определяющую является ли сумма цифр данного четырёхзначного числа n четным числом

Pandi2 Pandi2    1   29.08.2019 16:20    3

Ответы
Nekop34 Nekop34  06.10.2020 03:13
Var
   A:integer;
Begin
Write('Введите четырёхзначное число: ');ReadLn(A);
if ((A div 1000) + ((A div 100) mod 10) + ((A div 10) mod 10) + (A mod 10)) mod 2 = 0 then WriteLn('Да, является')
else WriteLn('Нет, не является')
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика