Разложение числа с ограниченными операциями — олимпиадная задача

Введём переменнуюk_square(square — квадрат), связанную с kсоотношениемk_square=k²: k := 0; k_square := 0; writeln (k_square); while not (k = n) do begin | k := k + 1; | {k_square = (k-1) * (k-1) = kk - 2k + 1} | k_square := k_square + k + k - 1; | writeln (k_square); end; Замечание. Можно обойтись без вычитания с помощью такой хитрости: while not (k = n) do begin | k_square := k_square + k; | {k_square = kk + k} | k := k + 1; | {k_square = (k-1)(k-1)+(k-1)=k*k-k} | k_square := k_square + k; end;

Ответ задачи отсутствует