Question

Вычислить произведение нечетных чисел от 1 до n. в паскале как правильно составить всё?

Answer 1

Program proizvedenie;
var i, n, k: Integer;
begin
k:= 1;
writeln('Введите n:');
readln(n);
for i:= 1 to n
do if(i mod 2 <> 0) then k:= k*i;
writeln(k);
end.

//Если PascalABC.NET, то можно написать:

program proizvedenie;
begin
var k: Integer := 1;
var n:= readInteger('Введите n:');
for i:= 1 to n
do if(i.isOdd()) then k*= i;
k.println;
end.

Answer 2

Для вычисления произведения нечетных чисел от 1 до n в языке программирования Паскаль, можно использовать цикл, например, цикл "for". Вот пример кода на Паскале для этой задачи:

pascalCopy code
program MultiplyOdds;

var
  n, i: Integer;
  product: Int64; // Используем Int64, чтобы избежать переполнения при больших значенях произведения.

begin
  // Вводим значение n с клавиатуры
  Write('Введите n: ');
  ReadLn(n);

  // Инициализируем переменную product значением 1
  product := 1;

  // Вычисляем произведение нечетных чисел от 1 до n
  for i := 1 to n do
  begin
    if i mod 2 <> 0 then // Проверяем, является ли число i нечетным
      product := product * i;
  end;

  // Выводим результат
  WriteLn('Произведение нечетных чисел от 1 до ', n, ' равно: ', product);

end.

При запуске этой программы вы увидите приглашение для ввода числа "n", а затем программа вычислит и выведет произведение всех нечетных чисел от 1 до "n".