Question

Срочно. Решите плиз . Паскаль! Цикл

Answer 1

PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var (k, p, n) := (0, int64(1), ReadInteger('n ='));

 var t: integer;

 for var i := 1 to n do

 begin

   Read(t);

   if t mod 3 = 0 then

   begin

     p *= t;

     Inc(k)

   end

 end;

 Write('Произведение ', k, ' элементов равно ', p)

end.

Пример

n = 7

53 -28 36 174 -600 45 -93

Произведение 5 элементов равно 15728904000