Question

Напишите программу на паскале для вычисления произведение отрицательных. Количество введенных чисел неизвестно, 0 – признак окончания ввода чисел.

Answer 1

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
var (ans, n):= (1,1);
while n <> 0 do
  begin
    ans *= n<0?n:1;
    n:= ReadInteger;
  end;
Writeln(ans);
end.

Пример:
-3
-4
12
32
-5
0
-60

Answer 2

//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(ReadSeqIntegerWhile(x->x<>0).Where(x->x<0).Aggregate(BigInteger(1),(x,y)->(x*y)));
end.