Question

Выведите кубы несчетных целых чисел от 1 до 13 Паскаль

Answer 1

Ответ:

Var i:integer;

Begin

For i:=0 to 6 do

Write((i*2+1)*(i*2+1)*(i*2+1));

End.