УШ
Урмат Шайымкулов
Помогите по паскалю решить задачку PLEASE!!!!
Дано натуральное число. Определить, на сколько его максимальная цифра превышает минимальную.
Дано натуральное число. Определить, на сколько его максимальная цифра превышает минимальную.
var
n, r, mx, mn: longint;
begin
write('n? ');
readln(n);
r := n mod 10;
mn := r;
while n <> 0 do begin
r := n mod 10;
if r > mx then mx := r;
if r < mn then mn := r;
n := n div 10;
end;
write('result: ', mx - mn);
end.
Разбиваете на разряды, ищете минимум и максимум и вуаля - решение.