Сделайте, пожалуйста прогу!!!! Оч оч надо

[BeaU]

Дано натуральное число, в котором все цифры различны. Определить порядковые номера двух его минимальных цифр, считая номера:
-считая от конца числа;
-считая от начала числа.
(Использовать только один оператор цикла)

[Daramant]

Простая ведь задача:

var 
  s, min1, min2: String;
  v: Longint;
  i, p1, p2: Word;
begin
  v := 491823567;
  Str(v, s);
  p1 := 1;
  p2 := 1; { считаем, что есть хотя бы одна цифра }

  for i := 2 to Length(s) do begin
    if s[i] < s[p1] then begin
        if s[p1] < s[p2] then
          p2 := p1;
      p1 := i;
    end
    else
    if s[i] < s[p2] then
      p2 := i;
  end;

  writeln('positions:');
  writeln('p1 = ',p1, '  p2 = ', p2);
  writeln('values:');
  writeln('p1 = ',p1, '  p2 = ', p2);

end.

[Serge_Bliznykov]

Daramant, задачка, конечно, не очень сложная. но и не элементарная.
попробуйте вашу программу на таком "сложном" числе, как:
1234567

p.s. и, мне кажется, Вы хотели вывести значения чисел, тогда в последнем Вашем WriteLn описка.
должно быть, Вы хотели написать так:

  writeln('values:');
  writeln('p1 = ',s[p1], '  p2 = ', s[p2]);

[Daramant]

Да, виноват.
должно быть:

...
p1 := 1;
p2 := 2;  { <--- }
 for i := 3 to Length(s) do begin
...

Ну и число должно содержать минимум 2 знака.

при выводе конечно:

  
  writeln('values:');
  writeln('min1 = ', s[p1], '  min2 = ', s[p2]);

P.S. Serge_Bliznykov +1 за внимательность)

задачка, конечно, не очень сложная. но и не элементарная.

Простая - это немного сложнее чем элементарная.