5.27 Найти сумму всех целых чисел от 100 до 500 (

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

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

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

Результат
120300
259459200
500.5
Соответственно 1, 2 и 3 задания
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт