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

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

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

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