Задача с mod и div Опции

[Strip]

???Помогите решить задачу! Пожалуйста!!!
Вводится натуральное число N. Определить номер минимальной цифры этого числа

[trminator]

Код

var n: integer;
   i, min, minn, ost : shortint;
begin
   readLn(n); min:=10; i:=0;
   while n > 0 do
   begin inc(i);
       ost:=n mod 10; n:=n div 10;
       if ost < min then begin
                             min:=ost; minn:=i
                         end;
   end;

   writeLn(minn,'-тый разряд минимальный. Он равен ', min);
end.

ты ведь не знаешь сколько цифр в числе

при желании можно взять десятичный логарифм - это и будет кол-во цифр - 1. Но это уже извращение.

While A>0 do
begin
B:=a mod 10;
Dec(A,B);
A:=A div 10;
Writeln(B);
End.

dec(a, B) здесь явно лишнее. Зачем это делать если все равно потом отбрасываешь последнюю цифру

Сообщение отредактировано: volvo - 17.12.2004 19:19