1)найти произведение натуральных чисел от f до 11 (f< 11) 2)найти сумму натуральных чисел от 21 до d решите правильно,добавлю ещё

саня2271337 саня2271337    1   30.09.2019 19:50    1

Ответы
SVTBTN SVTBTN  09.10.2020 06:11
PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018Внимание! Если программа не работает, обновите версию!1)

begin

 ReadInteger('f=').To(11).Aggregate(1, (p, q)-> p * q).Println

end.

f= 516632002)

begin

 21.To(ReadInteger('D=')).Sum.Println

end.

D= 561386
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика