54

Найти сумму цифр числа (составить прогу с помощью паскаля)

17 марта 2023

Найти сумму цифр числа (составить прогу с помощью паскаля)

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

82

var i,sum: integer; beginwhile i>0 do beginsum: =sum+(i mod 10); i: =i div 10; end; writeln (sum); end.

Знаете ответ?

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