Question

Вычислить произведение нечетных чисел от 1 до 99Среда Паскаль!​

Answer 1

Ответ:

var i:integer;

p:real;

begin

p:=1;

for i:=1 to 99 do

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

writeln(p)

end.

Answer 2

Для вычисления произведения нечетных чисел от 1 до 99 вам необходимо написать программу на языке программирования, таком как Pascal. Вот пример программы на Pascal, которая решает эту задачу:

pascalCopy code
program MultiplyOddNumbers;

var
  i: Integer;
  product: Int64; // Используем Int64 для больших произведений

begin
  product := 1;

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

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

  readln;
end.

Эта программа начинает с инициализации переменной product значением 1 и затем использует цикл for для перебора всех чисел от 1 до 99. Если число нечетное (проверяется с помощью оператора mod), то оно умножается на текущее значение product. В конце программа выводит произведение нечетных чисел от 1 до 99 на экран.