Huswyn
5 год назад
найдите сумму первых n четных натуральных чисел
ОТВЕТЫ
Стоил
Oct 24, 2020
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.
100
Смежные вопросы:
