begin
ReadInteger.DownTo(0).Tabulate(t -> t * t * t)
.Select(t -> $'{t[0],5}{t[1],10}').PrintLines
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018
Внимание! Если программа не работает, обновите версию!
begin
ReadInteger.DownTo(0).Tabulate(t -> t * t * t)
.Select(t -> $'{t[0],5}{t[1],10}').PrintLines
end.
usi K(0)