Question

Срочно! Паскаль! Помогите по братски!

Answer 1

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

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

begin

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

 ReadSeqInteger(ReadInteger('n =')).Where(t -> t mod 3 = 0)

     .Foreach(t -> begin k += 1; p *= t end);

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

end.