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

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

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

begin
  1.To(100).Average.Println
end.
// PascalABC.NET 
// Версия 3.3.5 сборка 1662 (29.04.2018)

begin 
  Range(1, 100).Average.Println
end.
Варвара Рулева
Ответ 50.5
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт