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