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.

Answer 2

Для вывода кубов нечетных целых чисел от 1 до 13 на языке Паскаль, можно использовать цикл и операцию возведения в куб. Вот пример кода, который решает эту задачу:

program CubesOfOddNumbers;

var
  i, cube: integer;

begin
  for i := 1 to 13 do
  begin
    if i mod 2 <> 0 then // Проверка на нечетность числа
    begin
      cube := i * i * i; // Возведение числа в куб
      writeln('Куб числа ', i, ' равен: ', cube);
    end;
  end;
end.

В этом коде мы используем переменную `i` для итерации от 1 до 13 с помощью цикла `for`. Затем мы проверяем, является ли текущее значение `i` нечетным с помощью оператора `mod`. Если число нечетное, то мы возводим его в куб, умножая его само на себя два раза. Результат сохраняется в переменной `cube`. Затем мы выводим результат с помощью процедуры `writeln`.

При запуске этой программы, вы увидите вывод, содержащий кубы нечетных чисел от 1 до 13:

Куб числа 1 равен: 1
Куб числа 3 равен: 27
Куб числа 5 равен: 125
Куб числа 7 равен: 343
Куб числа 9 равен: 729
Куб числа 11 равен: 1331
Куб числа 13 равен: 2197

Таким образом, мы успешно вывели кубы нечетных целых чисел от 1 до 13 с помощью языка Паскаль.