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

Question

37

в избранное ссылка

Знаете ответ?

multik · Accepted Answer

88

multik

11 апреля 2023

Var a, i: integer; begin a: =1; for i: =1 to 10 do begin writeln (a, ' => ', sqr (a) , ', a*a*a); a: =a+i; end; end.

комментировать

в избранное ссылка отблагодарить