Question

Вывести квадраты и кубы 10 чисел следующей последовательности: 1, 2, 4, 7, 11, 16, 22, 29, 37, 46

Answer 1

Var x,d:integer;
begin
x:=1; d:=1;
while x<>46 do
begin
writeln(x*x, ' ', x*x*x);
x:=x+d;
d:=d+1;
end;
end.

Answer 2

Для вывода квадратов и кубов чисел из данной последовательности, нужно возвести каждое число в квадрат и в куб. Вот результаты:

1^2 = 1, 1^3 = 1 2^2 = 4, 2^3 = 8 4^2 = 16, 4^3 = 64 7^2 = 49, 7^3 = 343 11^2 = 121, 11^3 = 1331 16^2 = 256, 16^3 = 4096 22^2 = 484, 22^3 = 10648 29^2 = 841, 29^3 = 24389 37^2 = 1369, 37^3 = 50653 46^2 = 2116, 46^3 = 97336

Таким образом, квадраты и кубы чисел последовательности будут: 1, 4, 16, 49, 121, 256, 484, 841, 1369, 2116 1, 8, 64, 343, 1331, 4096, 10648, 24389, 50653, 97336