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

Question

Информатика

Ленуся

13 августа, 04:13

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

+2

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