Question

Составить программу Паскаль, которая находит произведение n-нечётных чисел

Answer 1

var i,p: integer;

begin

p:=1;

for i:=1 to 13 do

if i mod 2 <> 0 then p:=p*i;

write (p)

end.

Answer 2

Конечно! Вот пример программы на языке Паскаль, которая находит произведение n-нечётных чисел:

pascalCopy code
program MultiplyOddNumbers;

var
  n, i: integer;
  product: longint;

begin
  writeln('Введите значение n:');
  readln(n);

  product := 1;

  for i := 1 to n do
  begin
    if (i mod 2) <> 0 then
      product := product * i;
  end;

  writeln('Произведение ', n, ' нечётных чисел равно: ', product);

  readln;
end.

При запуске программы она будет запрашивать у пользователя значение n. Затем, с помощью цикла for, программа проверяет каждое число от 1 до n и, если число нечётное, умножает его на текущее значение произведения product. В конце выполнения цикла программа выводит результат на экран.

Обратите внимание, что переменная product объявлена как longint, чтобы иметь возможность обрабатывать большие значения произведения.