Помогите с информатикой пожалуйста. Нужно вывести на экран квадраты и кубы нечетных целых чисел от 1 до n.
Помогите с информатикой пожалуйста.
Нужно вывести на экран квадраты и кубы нечетных целых чисел от 1 до n.
Гость
Ответ(ы) на вопрос:
ГостьPascal
var n, i: longint;
begin
read(n);
for i:=1 to n do
if i mod 2=1 then writeln(i,'^2 = ', i*i, ' ', i, '^3 = ', i*i*i);
end.
Гость// 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.
Тестовое решение:
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
Не нашли ответ?
Похожие вопросы