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

Answer 2

Замечание: число не обязательно должно быть трехзначным.

Answer 3

Класс, все работает! Спасибо!

Answer 4

Конечно работает)) Пожалуйста

Answer 5

Вводим число, получаем по очереди его цифры, заносим их в список. Заполненный список сортируем по возрастанию. Первый элемент списка, естественно, будет минимальным, последний - максимальным. Что тут может не работать?