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

Прога нужна?

да

На Паскале?

да

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



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



и складываем эти равенства таким образом: первое слагаемое с первым, второе со вторым и т.д. Так как в первой сумме каждое последующее слагаемое на 1 больше предшествующего, а во 2-ой на 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.