Определить какая цифра в числе расположена в нём левее:максимальная или минимальная

[danil663]

Дано натуральное число, в котором все цифры различны.Определить, какая цифра расположена в нём левее: максимальная или минимальная. Использовать подпрограммы для определения максимальной цифры, минимальной цифры и распознования какая цифра(максимальная или минимальная) лежит левее.
Заранее благодарен даже тем кто зашел в тему.

[Mad_Cat]

var X:integer;
function MaxDigit(N:integer):byte;
var md:byte;
begin
md:=0;
while n>0 do begin
if n mod 10 >md then md:=n mod 10;
n:=n div 10;
end;
MaxDigit:=md;
end;

function MinDigit(N:integer):byte;
var md:byte;
begin
md:=9;
while n>0 do begin
if n mod 10 <md then md:=n mod 10;
n:=n div 10;
end;
MinDigit:=md;
end;

Function LeftRight(N:integer):string;
var maxd,mind:byte;
begin
maxd:=MaxDigit(N);
mind:=MinDigit(N);
while (N mod 10 <> maxD) and (N mod 10 <> minD) do
N:=N div 10;
if  N mod 10 = maxD  then  LeftRight:='Min'
else    LeftRight:='Max';
end;

begin
readln(x);
Writeln(LeftRight(x));
end.

457387
Min

[danil663]

Сообщение от Mad_Cat

....

спасибо ещё раз, а говорили чо тут бесплатно никто не решает



__________________
Оверквотинг (overquoting) на форуме запрещён.
Не злоупотребляйте избыточным цитированием.
Если Вы отвечаете на предыдущее сообщение, нет необходимости приводить его полностью в своем ответе.
В крайнем случае выберите нужный фрагмент и процитируйте его.
Модератор.

[Вадим Мошев]

Сообщение от danil663

спасибо ещё раз, а говорили чо тут бесплатно никто не решает

Вакансия торгового представителя/менеджера по продажам/продавца/etc ждёт вас

[Niro]

Вакансия торгового представителя/менеджера по продажам/продавца/etc ждёт вас

Все профессии нужны, все профессии важны...

Автор хотя бы был вежлив в первом сообщении, что уже редкость...