Помогите с информатикой пожалуйста. Нужно вывести на экран квадраты и кубы нечетных целых чисел от 1 до n.
Answers & Comments
ZusTY
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016 begin var s:=Range(1,ReadInteger('n='),2).Select(x->Rec(x,x*x,x*x*x)); foreach var e in s do Writeln(e.Item1:10,e.Item2:10,e.Item3:10) end.
Answers & Comments
begin
var s:=Range(1,ReadInteger('n='),2).Select(x->Rec(x,x*x,x*x*x));
foreach var e in s do
Writeln(e.Item1:10,e.Item2:10,e.Item3:10)
end.
Тестовое решение:
n= 20
1 1 1
3 9 27
5 25 125
7 49 343
9 81 729
11 121 1331
13 169 2197
15 225 3375
17 289 4913
19 361 6859