не могу понять последовательность!

[Warfvare]

Помогите немогу разобраться с последовательностью!
А вообще задание такое-Составить пошаговый алгоритм нахождения суммы этих чисел.

1,8,9,64,25,216,49,...,81,100

[Utkin]

Я точно не уверен, но, ИМХО, это квадраты чисел от 1 до 10 . А 216 это точно 216? Не 16?

[Warfvare]

Сообщение от Utkin

Я точно не уверен, но, ИМХО, это квадраты чисел от 1 до 10 . А 216 это точно 216? Не 16?

216 - ЭТО ТОЧНО 999% УВЕРЕННОСТИ!
Поподробней про квадраты я чет недогоняю!

[Utkin]

Перепутал, там не только квадраты, но еще и кубы.
1 в квадрате 1
2 в кубе 8
3 в квадрате 9
4 в кубе 64
5 в квадрате 25
6 в кубе 216
7 в квадрате 49
Смысл ясен?

[ROMA2PVT]

последняя 1000 должна быть.

[Warfvare]

Сообщение от ROMA2PVT

последняя 1000 должна быть.

да последняя 1000!
В выводе элементов где-то ошибка понять немогу где!?Подскажите плиз!
Программа просто выводит непонятные числа!

for i:=1 to 11 do
begin
if i mod 2 = 0 then a[i]:=a[i]*a[i]*a[i]
else
a[i]:=a[i]*a[i];
edit1.text:=edit1.text+inttostr(a[i]);
end;

[Utkin]

ОФФТОП:

да последняя 1000!

Вы хоть представляете что это за число - 1000! ?

[Warfvare]

Сообщение от Utkin

ОФФТОП:

Вы хоть представляете что это за число - 1000! ?

Я несовсем дураГ-то 1000 ето 10^3!!!!!!!!!!!!!!

[Serge_Bliznykov]

1000!

имелось в виду, что ! - это операция факториала.
А факториал 1000 - это число, на много, много много страниц текста мелкого убористого текста из циферок...

p.s. по теме.

a[i]:=a[i]*a[i]*a[i]

А почему Вы решили что в a[i] что то есть?!?!!!
надо так:

edit1.text:= '';
for i:=1 to 10 do 
begin
   if i mod 2 = 0 
      then a[i]:=i*i*i
      else  a[i]:=i*i; 
   edit1.text:=edit1.text+inttostr(a[i])+' '; 
end;