Найти среднее арифметическое всех натуральных чисел от 1 до 100 (ПАСКАЛЬ)

Question

Найти среднее арифметическое всех натуральных чисел от 1 до 100 (ПАСКАЛЬ)

Answer 1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  1.To(100).Average.Println
end.

Answer 2

// PascalABC.NET 
// Версия 3.3.5 сборка 1662 (29.04.2018)

begin 
  Range(1, 100).Average.Println
end.

Comments

Ответ 50.5