Question

Написать программу в паскале: в последовательности целых чисел найти произведение нечётных​

Answer 1

Ответ:

var m, i: integer;

a:array[1..5] of integer = (2,4,6,5,7);

begin

   m:=0;

   for i:=1 to length(a) do begin

       if a[i] mod 2 <> 0 then begin

           if m = 0 then m:=1;

           m:=m*a[i];

       end;

   end;

   write(m);

end.

Answer 2

Конечно, вот пример программы на Pascal, которая находит произведение всех нечетных чисел в последовательности целых чисел:

pascalCopy code
program ПроизведениеНечетных;

var
  число, произведение: integer;

begin
  произведение := 1;
  
  writeln('Введите целые числа (для завершения введите 0):');
  repeat
    read(число);
    
    // Проверяем, что число нечетное и не равно 0
    if (число <> 0) and (число mod 2 <> 0) then
    begin
      произведение := произведение * число;
    end;
    
  until число = 0;
  
  writeln('Произведение нечетных чисел: ', произведение);
end.

Эта программа начинает с произведения, равного 1, и затем запрашивает у пользователя целые числа. Если введенное число нечетное и не равно 0, оно умножается на текущее произведение. Программа продолжает запрашивать числа, пока не будет введен 0, после чего выводит результат - произведение нечетных чисел.