Выведите таблицу кубов целых положительных чисел от 1 до 15.
Выведите таблицу кубов целых положительных чисел от 1 до 15.
Гость
Ответ(ы) на вопрос:
Гость// 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)
Не нашли ответ?
Похожие вопросы