35 БАЛЛОВ ДАЮ!!РЕШИТЕ ПОЖАЛУЙСТА КАК ПРОХОДЯТ В 9 КЛАССЕ!!!! Вывести квадраты и кубы
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.
Не нашли ответ?
Похожие вопросы