Предмет: Информатика,
автор: хловушки
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.
Похожие вопросы
Предмет: Математика,
автор: nihtoa1
Предмет: Физика,
автор: SEREGA1244
Предмет: Алгебра,
автор: DragonsLover775
Предмет: Физика,
автор: seregakopytov