Question

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

Answer 1

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

Answer 2

У Вас не получится сумма n четных чисел. Скажем, если N=5, Вы найдете 2+4, а не 2+4+6+8+10, что требуется. Почему бы не написать S:=S+2N?

Answer 3

Ну да, так получается сумма натуральных, чётных, не превышающих n

Answer 4

Но сказано найти сумму n чисел!!!

Answer 5

Уже исправил))))