Дано натуральное число N,в котором все цифры различны.Найти остаток от деления...

Question

Дано натуральное число N,в котором все цифры различны.Найти остаток от деления максимальной цифры на минимальную цифру данного числа.

Answer 1

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.