Я уже, наверное, немножко "поднадоел"?
Опять я встал при разработке программульки.
Вот задание:
Найти все трехзначные числа, которые в 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.