Question

Дано натуральное число N. Вычислить разницу между самой большой и самой маленькой цифрой в записи этого числа.

Answer 1

// PascalABC.NET 3.1, сборка 1267 от 10.07.2016
begin
  var s:=ReadlnString('Натуральное число:').Distinct;
  Writeln('Макcимальная разница в цифрах: ',Integer(s.Max)-Integer(s.Min))
end.

Тестовое решение
Натуральное число: 3456634642452343053000523424136240235341
Макcимальная разница в цифрах: 6

Answer 2

Var n,ni,ma,mi,i:int64;
    nstr:string;
begin
ma:=0;
mi:=10;
read(n);
nstr:=inttostr(n);
for i:=1 to length(nstr) do begin
   ni:=strtoint(nstr[i]);
   if ni>ma then ma:=ni;
   if ni<mi then mi:=ni;
   end;
writeln(ma-mi);
end.