Question

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

Answer 1

Var n,m,max,min:integer;
Begin
    write('Введите число n: ');readln(n);
    max:=-10;min:=10;
    While n<>0 do
    Begin
      m:=n mod 10;
      if  m>max then max:=m;
      if  m<min then min:=m;
      n:=n div 10;
    End;
    writeln('Максимальная цифра числа: ',max);
    writeln('Минимальная цифра числа: ',min);
End.