Дано число. Определите будет ли сумма его цифр четным. Если 《да》, выведите сообщение "сумма цифр числа...равна... она четная", если 《нет》, выведите сообщение "суммацифрчисла....равна... она нечетная"

Помогите, пожалуйста.
СРОЧНО НУЖНО


fen102: на каком языке писать?
fen102: добавил pascal.

Ответы

Ответ дал: fen102
1

На языке Python:

n = int(input())

i = n

sum = 0

while i != 0:

   sum = sum + i % 10

   i = i // 10

if sum % 2 == 0:

   print("Сумма цифр числа ", n, " равна ", sum, ", она чётная.", sep="")

else:

   print("Сумма цифр числа ", n, " равна ", sum, ", она нечётная.", sep="")

На языке Pascal:

program summa_comparator;

var n,i,sum:integer;

begin

write('Введите число >> ');

read(n);

i := n;

sum := 0;

while i <> 0 do begin

sum := sum + i mod 10;

i := i div 10;

end;

if sum mod 2 = 0 then

writeln('Сумма цифр числа ', n, ' равна ', sum, ', она чётная.')

else

writeln('Сумма цифр числа ', n, ' равна ', sum, ', она нечётная.')

end.


Wqoghv: Мне нужно на языке Pascal. Приношу извинения, что не написала об этом в вопросе. Если вам не сложно и вы знаете как это решить на нужном мне языке, то я буду очень вам благодарна
p15: могу в пайтоне в одну строку :)
p15: Хотя не лучше в 2
fen102: можешь - делай.
fen102: я постараюсь сделать в паскале, но не обещаю, что смогу.
fen102: на*
Wqoghv: Огромное вам спасибо. Вы меня просто спасли
Вас заинтересует