Question

Программа паскаль. Информатика​

Answer 1

===== PascalABC.NET =====

begin

 var n := ReadInteger;

 var St := new Stack<integer>;

 while n > 0 do

 begin

   St.Push(n mod 10);

   n := n div 10

 end;

 var a := St.Println.Sorted.ToArray;

 Println('Min =', a.First, '  max =', a.Last);

 Println('Сумма цифр =', a.Sum, '  произведение =', a.Product)

end.