Вывести квадраты и кубы 10 чисел следующей последовательности: 1, 2, 4, 7, 11, 16, … . Цикл For.
Ответы
Ответ дал:
0
var a, i: integer;
begin
a := 1;
for i := 1 to 10 do
begin
writeln(a:3, ' ', a*a:5, ' ', a*a*a:8);
a := a + i;
end;
end.
Тестовое решение:
1 1 1
2 4 8
4 16 64
7 49 343
11 121 1331
16 256 4096
22 484 10648
29 841 24389
37 1369 50653
46 2116 97336
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
8 лет назад