Найдите сумму первых n четных натуральных чисел

Мой совет - запомнить как основную формулу для суммы первых n натуральных чисел



Доказывается она так: записываем те же числа в обратном порядке:



и складываем эти равенства таким образом: первое слагаемое с первым, второе со вторым и т.д. Поскольку в первой сумме каждое следующее слагаемое на 1 больше предыдущего, а во второй на 1 меньше предыдущего, мы получим сумму одинаковых чисел:





слагаемых всего n, поэтому



Теперь несложно найти сумму первых n четных чисел. Можно провести подобную выкладку, а можно свести новую задачу к предыдущей:



ответ: 

Var
N:integer;
S:real;
Begin
Write('N = ');ReadLn(N);
For N:= 1 to N do
     S:=S+2*N;
WriteLn('S = ',S)
End.