ПОМОГИТЕ ПОЖАЛУЙСТА. Работа в паскале. Составьте программу определяющую является ли сумма цифр данного четырёхзначного числа n четным числом
Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
1 год назад
1 год назад
5 лет назад
8 лет назад
8 лет назад
9 лет назад
9 лет назад