Срочно помощь нужна.
Дано натуральное число N.

1.Вывести на экран минимальную цифру числа и разряд, в котором она находится;

2.Вывести на экран максимальную цифру числа и разряд, в котором она находится;

3.Вывести на экран сумму максимальной и минимальной цифры.

4.Выяснить, сколько раз в натуральном числе встречается его максимальная цифра.

5.Проверить на четность минимальную цифру числа N.

Пример

Введите натуральное число N: 388456

Минимальная цифра - 3, находится в разряде 5;

Максимальная цифра - 8, находится в разряде 4;

Сумма максимальной и минимальной цифры - 11;

Максимальная цифра встречается 2 раза;

Минимальная цифра - нечетная.

В большинстве реализаций Паскаля число, данное для примера, не поместится в переменную типа integer, надо longint брать.

Учту на будущее.

Задача простая, но Было интересно написать все в единственном цикле.

var  i,d,dmin,dmax,kmax,imin,imax:integer;  n:longint;begin  Write('Введите натуральное число N: '); Read(n);  dmin:=10; dmax:=-1; {больше большего и меньше меньшего}  i:=0;  repeat    d:=n mod 10; n:=n div 10; Inc(i);    if dmax<d then begin dmax:=d; kmax:=1; imax:=i end    else if dmax=d then Inc(kmax);    if dmin>d then begin dmin:=d; imin:=i end  until n=0;  Writeln('Минимальная цифра - ',dmin,' находится в разряде ',imin,';');  Writeln('Максимальная цифра - ',dmax,' находится в разряде ',imax,';');  Writeln('Сумма максимальной и минимальной цифры - ',dmin+dmax,';');  Writeln('Максимальная цифра встречается ',kmax,' раз(а);');  Write('Минимальная цифра - ');  if (dmin mod 2)=0 then Writeln('четная.')  else Writeln('нечетная.')end.Тестовое решение:Введите натуральное число N: 388456Минимальная цифра - 3 находится в разряде 6;Максимальная цифра - 8 находится в разряде 4;Сумма максимальной и минимальной цифры - 11;Максимальная цифра встречается 2 раз(а);Минимальная цифра - нечетная.