Question

Составьте программу нахождения произведения нечётных чисел на отрезке от 15 до 89. Паскаль

Answer 1

var s,i:integer;

s:=0;

for i:=15 to 89 do

if i mod 2 = 0 then s:=s+i;

writeln('Сумма нечентны чисел = ',s);

Answer 2

Для нахождения произведения нечетных чисел на отрезке от 15 до 89 на языке программирования Pascal, вы можете использовать следующий код:

pascalCopy code
program ProductOfOddNumbers;
var
  i: integer;
  product: integer;

begin
  product := 1; // Начальное значение произведения

  // Итерируемся по числам от 15 до 89 с шагом 2 (нечетные числа)
  for i := 15 to 89 step 2 do
  begin
    product := product * i;
  end;

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

Этот код инициализирует переменную product единицей, а затем использует цикл for для умножения всех нечетных чисел от 15 до 89 включительно на это произведение. Результат будет выведен на экран.