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.