Выведите таблицу кубов целых положительных чисел - вопрос №1156459195 от mashasmirnova1704 25.10.2020 04:14

Question

Информатика: Выведите таблицу кубов целых положительных чисел от 1 до 15.

mashasmirnova1704 · Answer

// PascalABC.NET 3.2, сборка 1341 от 20.11.2016
begin
Range(1,15).Tabulate(i->i*i*i).Println(NewLine)
end.

Результат
(1,1)
(2,8)
(3,27)
(4,64)
(5,125)
(6,216)
(7,343)
(8,512)
(9,729)
(10,1000)
(11,1331)
(12,1728)
(13,2197)
(14,2744)
(15,3375)