PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Введите натуральное трехзначное число:');
var L:=new List;
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