Вывести квадраты и кубы 10 чисел следующей последовательности: - вопрос №1012473931019 от Ruslan2284612 29.06.2022 20:30

Question

Информатика: Вывести квадраты и кубы 10 чисел следующей последовательности: 1, 2, 4, 7, 11, 16, 22, 29, 37, 46

Ruslan2284612 · Answer

Var x,d:integer;beginx:=1; d:=1;while x 46 dobeginwriteln(x*x, , x*x*x);x:=x+d;d:=d+1;end;end....