Составьте программу проверяющую верно ли что сумма цифр введенного целого 3 х значного числа является нечетным паскаль

Question

Информатика

Воислава

3 января, 01:50

Составьте программу проверяющую верно ли что сумма цифр введенного целого 3 х значного числа является нечетным паскаль

+2

Ответы (1)

Знаете ответ на вопрос?

Пашата · Answer 1

Var

a, sum:integer;

begin

readln (a) ;

sum: = a div 100 + a div 10 mod 10 + a mod 10;

if (sum mod 2 = 0) then

writeln ('Сумма чисел: ', sum,' Число является четным.')

else

writeln ('Сумма чисел: ', sum,' Число не является четным.') ;

end.