Дано трехзначное целое число. Найти произведение этого числа ** разность максимального и...

Question

Дано трехзначное целое число. Найти произведение этого числа на разность максимального и минимального чисел, составленных их цифр исходного числа. Например для заданного числа 315 получим: 315 × (531 – 135) = 124740

Answer 1

В PascalABC 
var n: integer;
    s: string;
begin
  write('число:  ');  readln(s);
  n:=(StrToInt(s.Sorted.Reverse.JoinIntoString('')) - StrToInt(s.Sorted.JoinIntoString('')))*StrToInt(s);  writeln('число:  ',n);
end.