Напишите программу на паскале для вычисления произведение отрицательных. Количество введенных чисел неизвестно, 0 – признак окончания ввода чисел.
Ответы
Ответ дал:
0
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(ReadSeqIntegerWhile(x->x<>0).Where(x->x<0).Aggregate(BigInteger(1),(x,y)->(x*y)));
end.
//Версия 3.3, сборка 1611
begin
write(ReadSeqIntegerWhile(x->x<>0).Where(x->x<0).Aggregate(BigInteger(1),(x,y)->(x*y)));
end.
Вас заинтересует
1 год назад
1 год назад
8 лет назад