Question

Составьте программу к задаче.Дано натуральное число n.Требуется найти его наименьшую цифру.​

Answer 1

var

 n, d, min: integer;

begin

 read(n);

 n := abs(n); // Если введено отрицательное

 min := 10;

 while n > 0 do

 begin

   d := n mod 10;

   n := n div 10;

   if d < min then

     min := d;

 end;

 write(min);

end.