Найти сумму цифр заданного натурального числа N - Pascal ABC
Формулировка задачи:
прошу помощи)
Решение задачи: «Найти сумму цифр заданного натурального числа N»
textual
Листинг программы
var
s,n,m :integer;
begin
write('введите натуральное число: ');
readln(n);
s:= 0;
repeat
m:= n mod 10;
s:= s + m;
n:= n div 10;
until n = 0;
writeln('сумма цифр: ',s);
end.
Объяснение кода листинга программы
- Введенные переменные: s, n, m (s - сумма цифр, n - входное натуральное число, m - остаток от деления на 10)
- Пользователю предлагается ввести натуральное число.
- Инициализация переменной s значением 0.
- Запуск цикла, который будет выполняться до тех пор, пока n не станет равным 0.
- В каждой итерации цикла значение переменной m присваивается остатку от деления n на 10.
- Значение переменной m добавляется к переменной s.
- Значение переменной n присваивается результат деления n на 10.
- После окончания цикла выводится значение переменной s, которое является суммой цифр входного числа.