Предмет: Информатика,
автор: хловушки
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.
Похожие вопросы
Предмет: Информатика,
автор: luzgina198686
Предмет: География,
автор: PRIVET121
Предмет: Химия,
автор: martyrwakeup
Предмет: Физика,
автор: seregakopytov