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

Anastasiya3434 Anastasiya3434    3   02.10.2019 10:30    3

Ответы
aruzhanormanova aruzhanormanova  27.08.2020 11:27
PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018Внимание! Если программа не работает, обновите версию!

begin

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

end.

Результат247050
ПОКАЗАТЬ ОТВЕТЫ
hellooiooooooo hellooiooooooo  27.08.2020 11:27

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

a_{1}=100,d=2,a_{n}=998\\a_{n}=a_{1}+d \timtes (n-1)\\n=\frac{a_{n}-a_{1}}{d}+1=\frac{998-100}{2}+1=450\\s=\frac{a_{1}+a{n}}{2} \times n=\frac{100+998}{2} \times 450=247050

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика