Question

Организовать ввод трехзначного натурального числа с клавиатуры. Программа должна определитьнаименьшие и наибольшие цифры, которые входят в состав данного
натурального числа.

Answer 1

PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Введите натуральное трехзначное число:');
  var L:=new List<integer>;
  while n>0 do begin
    L.Add(n mod 10);
    n:=n div 10
    end;
  L.Sort;
  Writeln('Наименьшая цифра в числе ',L.First,', наибольшая ',L.Last)
end.

Пример
Введите натуральное трехзначное число: 634
Наименьшая цифра в числе 3, наибольшая 6