Умножение через циклы, Попарное произведение Опции

[Домовой]

Я уже, наверное, немножко "поднадоел"?

Опять я встал при разработке программульки.
Вот задание:

Найти все трехзначные числа, которые в 7 раз больше суммы попарных произведений своих цифр (например, 182=7*(1*8+8*2+1*2))

Вроде все понятно и ясно.
Сейчас читал самоучитель и вроде вы понял, чтобы отображать например из числа 100 первую цифру,
надо использовать к переменной параметр [1], т.е. a=100, а отображение первой цифры a[1].

Но почему-то это не работает к присваиванию переменной

Вот код:

Код

var a, m: real;
      i: integer;

begin

   FOR i := 101 TO  999 DO
      begin
         a:=7*(i[1]*i[2]+i[2]*i[3]+i[1]*i[3]);
         writeln(a);
      end;

end.

[-Volvo-]

По-моему, тебе вполне достаточно этого:

program zikl_8;

var c: real;
    a, i, d1, d2, d3: integer;

begin
   i:=101;
   repeat

     d1:=i div 100;
     d3:= i mod 10;
     d2:=(i-100*d1-d3) div 10;
     a:=7*(d1*d2+d2*d3+d1*d3);

     { сравниваешь число с семикратным попарным произведением }
     if i = a then begin
       writeln(a);
       readln;
     end;
     i:=i+1;

   until i>=999; { цикл все-таки идет по I }

end.

Кстати, конструкция Repeat ... Until сама по себе является операторными скобками, то есть внутри нее Begin ... End просто лишние...