Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

35 БАЛЛОВ ДАЮ!!РЕШИТЕ ПОЖАЛУЙСТА КАК ПРОХОДЯТ В 9 КЛАССЕ!!!!
Вывести квадраты и кубы 10 чисел следующей последовательности: 1, 2, 4, 7, 11, 16, …
Пример:
1 1 1
2 4 8
4 16 64
...
46 2116 97336

Ответ оставил Гость

Pascal

var i, j:integer;
begin
j:=1;
i:=1;
while j<=10 do
begin
writeln(i, ,i*i, ,i*i*i);
i:=i+j;
j:=j+1;
end;
end.