Question

Возвести в куб нечётные числа от 1 до 20 (В Паскале)

Answer 1

Var
num: Integer;
begin
for num := 1 to 20 do if num mod 2 <> 0 then write( power(num,3):0:0, ' ');
end.