Question

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

Answer 1

Var a:array[0..19] of integer;
i:integer;
begin

For i:=0 to 19 do
begin

a[i] := i + 1;
write(a[i], ' ');

end;
writeln();

for i:=0 to 19 do

begin
if i mod 2 = 0 then a[i] := a[i]*a[i]*a[i];
write(a[i], ' ');
end;
end.

Answer 2

Для возведения нечётных чисел от 1 до 20 в куб в языке Паскаль, можно использовать цикл, который будет перебирать числа от 1 до 20 с шагом 2 (так как только нечётные числа нужно возводить в куб). Внутри цикла можно использовать оператор возведения в степень для возведения числа в куб.

Вот пример кода на языке Паскаль, который реализует данную задачу:

program CubeOddNumbers;

var
  i, cube: integer;

begin
  for i := 1 to 20 step 2 do
  begin
    cube := i * i * i;
    writeln('Cube of ', i, ' is ', cube);
  end;
end.

В этом коде мы объявляем переменные `i` и `cube`. Переменная `i` будет использоваться для перебора нечётных чисел от 1 до 20 с шагом 2. Внутри цикла мы вычисляем куб числа `i` и сохраняем результат в переменную `cube`. Затем мы выводим на экран сообщение с числом `i` и его кубом.

Важно отметить, что язык Паскаль не является одним из поддерживаемых языков программирования в рамках данного интерфейса. Поэтому, приведённый выше код является примером и может не работать в данной среде. Однако, вы можете использовать этот код в среде, поддерживающей язык Паскаль, чтобы получить ожидаемый результат.

Надеюсь, это поможет! Если у вас возникнут ещё вопросы, не стесняйтесь задавать.