Дано натуральное число N, в котором все цифры различны. Определить нв сколько максимальная цифра превышает минимальную цифру данного числа.
Var n,i,min,max:integer; begin; readln(n); max:=0; min:=10; while n>1 do begin; if n mod 10>max then max:=n mod 10; if n mod 10 n:=n div 10; end; writeln('Result:',max mod min); end.