Question

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

Answer 1

Var s: string;
begin  write('n = ');  readln(s);
  writeln('минимальная цифра: ',s.Sorted.JoinIntoString('')[1]);
end.

n = 9823457
минимальная цифра: 2

Answer 2

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.