1)Найти произведение натуральных чисел от f до 11 (f

Question

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

Answer 1

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018

Внимание! Если программа не работает, обновите версию!

1)

begin

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

end.

f= 5

1663200

2)

begin

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

end.

D= 56

1386