Question

Последовательно вводятся 10 целых чисел... РЕШИТЬ ЧЕРЕЗ FOR ПАСКАЛЬ Последовательно вводятся 10 целых чисел. Найти произведение тех которые кратны 3

Answer 1

var

prod, i, x : integer;

begin

prod := 1;

for i := 1 to 10 do

   begin

   readln(x);

   if x mod 3 = 0 then

       prod := prod * x;

   end;

writeln(prod);

end.

Answer 2

Для решения данной задачи с использованием цикла for в Pascal можно использовать следующий алгоритм:

1. Объявить переменную "произведение" и инициализировать ее значением 1. Эта переменная будет использоваться для хранения произведения чисел, кратных 3. 2. Ввести 10 целых чисел с помощью цикла for. В каждой итерации цикла попросить пользователя ввести число и сохранить его в переменную "число". 3. Проверить, является ли число кратным 3 с помощью оператора mod. Если число делится на 3 без остатка, то выполнить следующие шаги: - Умножить текущее значение переменной "произведение" на число. - Обновить значение переменной "произведение" с учетом нового произведения. 4. После окончания цикла вывести значение переменной "произведение" на экран.

Вот пример кода на Pascal, реализующий описанный алгоритм:

program MultiplyBy3;

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

begin
  произведение := 1;
  
  for i := 1 to 10 do
  begin
    writeln('Введите число:');
    readln(число);
    
    if число mod 3 = 0 then
    begin
      произведение := произведение * число;
    end;
  end;
  
  writeln('Произведение чисел, кратных 3:', произведение);
end.

После выполнения данного кода программа последовательно вводит 10 целых чисел и находит их произведение только для тех, которые кратны 3. Результат выводится на экран.