вывести квадраты и кубы 10 чисел в последовательности: 1 2 4 7 11

[Мария Кинина]

вывести квадраты и кубы 10 чисел в последовательности: 1 2 4 7 11
на паскале
используя циклы

очень надо! помогите пожалуйста!
завтра утром экзамен

[Leshii]

Вывел.

Program G;
Uses crt;
var i: integer;
    K: real;
begin
clrscr;
for i:=1 to 10 do begin
    k:=(sqr(i)- i + 2)/2;
     write(k:3:2,' '); //просто последовательность
end;
writeln;
for i:=1 to 10 do begin
    k:=(sqr(i)- i + 2)/2;
    write(sqr(k):3:2,' '); // квадраты
end;
writeln;
for i:=1 to 10 do begin
    k:=(sqr(i)- i + 2)/2;
 write(K*K*K:3:2,' '); // кубы
end;
readln;
end.

[rUs_LAN]

10 минут думал какая здесь последовательность, но все таки понял

в паскале писал только в институте на 1 курсе, забыл уже все, но если вы написали в чём у вас возникает затруднение возможно я б вам помог.

[red-eye]

а какая здесь последовательность, даже интересно?

[Sasha_Smirnov]

Полюбуйтесь: http://programmersforum.ru/showthread.php?p=930022

В сторону: вряд ли на "экзамене" попадётся именно это.

Сообщение от red-eye

а какая здесь последовательность, даже интересно?

1; 1+1; 2+2; 4+3; 7+4; ...

Но в решении Leshii использована не эта закономерность.

[viron]

Procedue N();
var
  number: Integer;
  I: Integer;
begin
  number:= 1;

  for I:= 1 to 10 do
  begin
    Writeln(number*number, '  ', number*number*number);
    number:= number + I;
  end;

end;

[JuniorProger]

Сообщение от Мария Кинина

вывести квадраты и кубы 10 чисел в последовательности: 1 2 4 7 11

Честно сказать, я не понял задание. Нужно писать его поточнее. Исходя из написанного, вырисовывается такая картина задания: есть десять чисел. Каждое из них необходимо возвести в квадрат и в куб. Затем полученные числа вывести в заданной последовательности: 1 2 4 7 11. Каким образом исходные числа связаны с заданной последовательностью? Это порядковые номера исходных чисел? Тогда откуда номер 11?