Найдите сумму первых 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.
спасибо
Я в Паскале, конечно, ничего не смыслю, но не получится ли у Вас сумма первых n натуральных чисел? А нужны ведь четные. Может, там 2N надо добавлять?
Благодарю, что нашли ошибку)) Исправил
У Вас не получится сумма n четных чисел. Скажем, если N=5, Вы найдете 2+4, а не 2+4+6+8+10, что требуется. Почему бы не написать S:=S+2N?
Ну да, так получается сумма натуральных, чётных, не превышающих n
Но сказано найти сумму n чисел!!!
Уже исправил))))
Мой совет - запомнить как основную формулу для суммы первых n натуральных чисел Доказывается она так: записываем те же числа в обратном порядке: и складываем эти равенства таким образом: первое слагаемое с первым, второе со вторым и т.д. Поскольку в первой сумме каждое следующее слагаемое на 1 больше предыдущего, а во второй на 1 меньше предыдущего, мы получим сумму одинаковых чисел: слагаемых всего n, поэтому Теперь несложно найти сумму первых n четных чисел. Можно провести подобную выкладку, а можно свести новую задачу к предыдущей: Ответ: