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

Question

Информатика

Клеопатра

22 ноября, 06:35

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

+5

Ответы (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.