Question

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

Answer 1

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

$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$

Answer 2

Да, но это вовсе не "программа Паскаль", как написано в задании.

Answer 3

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

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

begin

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

end.

Результат

247050