Найти сумму всех трёхзначных четных чисел. Программка Паскаль

Найти сумму всех трёхзначных четных чисел. Программка Паскаль

Задать свой вопрос
2 ответа

PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018

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

begin

 Range(100, 999, 2).Sum.Println;

end.

Итог

247050

Это арифметическая прогрессия:

a_1=100,d=2,a_n=998\\a_n=a_1+d \timtes (n-1)\\n=\fraca_n-a_1d+1=\frac998-1002+1=450\\s=\fraca_1+an2 \times n=\frac100+9982 \times 450=247050

Левушева Инна
Да, но это совсем не "программка Паскаль", как написано в задании.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт