Автор: Bronislav

Bronislav — Tue, 20 Feb 2018 07:48:14 +0000

gin
  write('Произведение чисел = ',ReadSeqReal('Введите 10 вещественных чисел: ',10).Aggregate(1,(x,y)->x*y))
end.

gin

write('Произведение чисел = ',ReadSeqReal('Введите 10 вещественных чисел: ',10).Aggregate(1,(x,y)->x*y))

end.

Комментарии: Решаем задачи Абрамян на Паскале. Series2