Подсчитать сумму и произведение первых N натуральных чисел

isaevshamil0535 isaevshamil0535    1   21.03.2020 12:39    4

Ответы
CERN CERN  05.08.2020 18:02

===== PascalABC.NET =====

begin

 var (s, p) := (0, BigInteger.One);

 for var i := 1 to ReadInteger('N=') do

   (s, p) := (s + i, p * i);

 Println('Сумма', s);

 Println('Произведение', p)

end.


Подсчитать сумму и произведение первых N натуральных чисел
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика