На паскале abc (не с суппер пуппер версий ) () полное решение : найти сумму цифр натурального числа, которые не больше 5. формат ввода: на вход подается натуральное, не превосходящее 30000. формат вывода: целое число. пример входных данных 650 пример выходных данных 5
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.