найдите сумму первых n четных натуральных чисел
Ответы на вопрос
Ответил Аноним
0
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:integer;
S:real;
Begin
Write('N = ');ReadLn(N);
For N:= 1 to N do
S:=S+2*N;
WriteLn('S = ',S)
End.
Ответил yugolovin
0
У Вас не получится сумма n четных чисел. Скажем, если N=5, Вы найдете 2+4, а не 2+4+6+8+10, что требуется. Почему бы не написать S:=S+2N?
Ответил Аноним
0
Ну да, так получается сумма натуральных, чётных, не превышающих n
Ответил yugolovin
0
Но сказано найти сумму n чисел!!!
Ответил Аноним
0
Уже исправил))))
Новые вопросы
География,
2 года назад
Алгебра,
2 года назад
Математика,
8 лет назад
Математика,
8 лет назад
Алгебра,
9 лет назад