5.27 Найти сумму всех целых чисел от 100 до 500 ( Паскаль ) 5.28 Найти произведение всех...

Question

5.27 Найти сумму всех целых чисел от 100 до 500 ( Паскаль )
5.28 Найти произведение всех целых чисел от 8 до 15 ( тоже Паскаль )
5.29 Найти среднее арифметическое всех целых чисел от 1 до 1000;

Answer 1

Соответственно 1, 2 и 3 задания

---

---

---

Answer 2

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln(Range(100,500).Sum);
  Writeln(Range(8,15).Aggregate(1,(m,n)->m*n));
  Writeln(Range(1,1000).Average)
end.

Результат
120300
259459200
500.5