Вывести квадраты и кубы 10 чисел следующей последовательности: - вопрос №3930619101247 от vintageflower 27.07.2020 21:30

Question

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

vintageflower · 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....