НА ПАСКАЛЕ ABC (не с суппер пуппер версий ) (30баллов
полное решени
Задача
Найти сумму цифр натурального числа, которые не больше 5
Формат ввода
На вход подается натуральное, не превосходящее 30000
Формат вывода
Целое число
Пример входных данны
65
Пример выходных данны
5

Предыдущий
вопрос Следующий
вопрос

program sumOfDigits
va
n, digit, sum: integer
begi
sum := 0
// ввод числ
readln(n)
// перебираем каждую цифру числ
while n > 0 d
begi
digit := n mod 10; // получаем последнюю цифру числ
if digit <= 5 then // если цифра не больше
sum := sum + digit; // добавляем ее к сумм
n := n div 10; // удаляем последнюю цифру из числ
end
// выводим сумму цифр не больше
writeln(sum)
end.

При вводе числа 650 программа выведет результат 5, так как сумма цифр не больше 5 в числе 650 равна 5.