Question

Задача:
Найти минимальную цифру натурального числа
Формат ввода:
На вход подается натуральное, не превосходящее 30000.
Формат вывода:
Целое число.
Пример входных данных:
651
Пример выходных данных:
1
Пояснение:
Отсутствует.


Сделайте на паскале плз
​

Answer 1

Var

x, sum: integer;

begin

read(x);

while(x gt; 0) do

begin

if(x mod 10 lt;= 5) then sum := sum + x mod 10;

x := x div 10;

end;

write(sum);

end.