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

Question

Информатика

Апа

1 апреля, 01:14

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

+4

Ответы (1)

Знаете ответ?

Лаврюша · 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.