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

Напоминаю одно из базовых правил Сервиса: задание не должно тестировать входные данные, если это не оговорено условиями задания.

Answer 3

Кстати, это же правило действует в заданиях олимпиад, ЕГЭ, ГИА.

Answer 4

Представляете, сказано, что нужно найти корень уравнения на отрезке a,b, указано, что [a;b] - интервал изоляции корня, а мы начинаем требовать от автора решения проверки, так ли это?

Answer 5

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.

Answer 6

если нет конечно повышенных требований на длину числа

Answer 7

Ну и ладно. Возможно, я ошибся. Просто на другой версии Паскаля, на которой раньше я учился, частенько выскакивала такая ошибка, при каких то других действиях. Я уже подпривык ставить так