Question

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

Answer 1

var n,min:integer;

begin

 min:=10;

 readln(n);

 while n<>0 do

   begin

     if n mod 10 < min then

       min:=n mod 10;

     n:=n div 10;

   end;

 if min=10 then writeln('Error')

   else writeln('Min: ',min);

end.