Beschyutl
6 год назад
Пожалуйста посчитайте ПОЖАЛУЙСТА. Работа в паскале. Составьте программу определяющую является ли сумма цифр данного четырёхзначного числа n четным числом
ОТВЕТЫ
Радка
Oct 24, 2020
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.
264
Смежные вопросы:
