Question

Дано натуральное число n .Найти минимальную цифру числа.

Answer 1

program xxx;
  var a,b, min :integer;
begin
  write('введите число а='); 

  readln(a);

  min:=10;
  while a <> 0 do
    begin
       b:= a mod 10;
       if b < min then min:=b;
       a:= a div 10
    end;
  writeln('минимальная цифра = ', min);
  readln
end.