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

Question

Информатика

Хрися

12 июля, 11:53

Дано натуральное число 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.