Вывести квадраты и кубы 10 чисел следующей последовательности: 1, 2, 4, 7, 11, 16, … . цикл for.

180

188

Посмотреть ответы 2

Ответы на вопрос:

vladazheleznova06

Информатика

4,4(55 оценок)

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