Составить программу, которая выводит таблицу квадратов и кубов натуральных чисел от 1 до 15.
Составить программу, которая выводит таблицу квадратов и кубов натуральных чисел от 1 до 15.
Ответ(ы) на вопрос:
Гость
// PascalABC.NET 3.2, сборка 1383 от 09.02.2017
// Внимание! Если программа не работает, обновите версию!
begin
Range(1,15).Select(i->Format('{0,2}{1,6}{1,6}',i,i*i,i*i*i)).Println(NewLine)
end.
Результат
1 1 1
2 4 4
3 9 9
4 16 16
5 25 25
6 36 36
7 49 49
8 64 64
9 81 81
10 100 100
11 121 121
12 144 144
13 169 169
14 196 196
15 225 225
Не нашли ответ?
Похожие вопросы