41

Напишите программу на паскале определения суммы цифр числа

alex-titan 06 июля 2022

Напишите программу на паскале определения суммы цифр числа. Укажите является ли полученный результат четнымчислом.

категория: информатика

49

var a, c: integer; begin read (a); c: =0; while a > 0 do begin c: =c+a mod 10; a: =a div 10; end; writeln (c); if c mod 2=0 then write ('Четное') else write ('Нечетное'); end.

пользователи выбрали этот ответ лучшим
Знаете другой ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...