Question

Pascal abc. Последовательно вводятся 10 целых чисел. Найти произведение тех, которые кратны 5. (Сделать через for)

Answer 1

var

 i,a,pr:integer;

begin

 pr:=1;

 for i:=1 to 10 do

   begin

     readln(a);

     if a mod 5 = 0 then  

       pr:=pr*a;

   end;

 writeln(pr);

end.

Answer 2

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

Ниже приведен код на языке Pascal, решающий данную задачу:

program MultiplyBy5;

var
  num, product: integer;
  i: integer;

begin
  product := 1;  // инициализируем переменную-аккумулятор единицей

for i := 1 to 10 do
  begin
    write('Введите число: ');
    readln(num);

if num mod 5 = 0 then  // проверяем кратность числа 5
      product := product * num;  // умножаем число на переменную-аккумулятор
  end;

writeln('Произведение чисел, кратных 5, равно ', product);
end.

Пользователь будет последовательно вводить 10 целых чисел. Если число кратно 5, оно будет умножаться на переменную-аккумулятор `product`. В конце программа выведет произведение всех чисел, кратных 5.