Question

НА ПАСКАЛЕ ABC (не с суппер пуппер версий ) (30баллов)
полное решение
Задача:

Найти сумму цифр натурального числа, которые не больше 5.

Формат ввода:

На вход подается натуральное, не превосходящее 30000.

Формат вывода:

Целое число.

Пример входных данных

650
Пример выходных данных

5

Answer 1

var
  x, sum: integer;

begin
  read(x);
  while(x > 0) do
  begin
    if(x mod 10 <= 5) then sum := sum + x mod 10;
    x := x div 10;
  end;
  write(sum);
end.