Задача:Найти минимальную цифру натурального числаФормат ввода:** вход подается...

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.