Question

На клавиатуре вводятся 10 чисел. Составьте программу, определяющую произведения чисел, меньших 5. Циклы в Pascal

Answer 1

Ответ:

var  

 a, i, res: integer;

begin

 res := 1;

 for i := 1 to 10 do

   begin

     read(a);

     if a < 5 then

       res := res * a;

   end;

 writeln(res);

end.

Answer 2

Для решения этой задачи в Pascal можно использовать цикл for, который позволит вводить 10 чисел и находить их произведение, если они меньше 5. Вот пример программы:

pascalCopy code
program ProizvedenieMenwe5;

var
  i, num: Integer;
  proizvedenie: LongInt;

begin
  proizvedenie := 1; // Инициализируем произведение единицей

  // Цикл для ввода 10 чисел
  for i := 1 to 10 do
  begin
    Write('Введите число ', i, ': ');
    Readln(num);

    // Проверка, что число меньше 5
    if num < 5 then
      proizvedenie := proizvedenie * num; // Умножаем на текущее число
  end;

  // Выводим произведение чисел, меньших 5
  Writeln('Произведение чисел, меньших 5: ', proizvedenie);

end.

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