Предмет: Информатика,
автор: nak97
Написать программу, которая вычисляет сумму первых n членов ряда 1+1/3+1/5+1/7...1/n
через опреатор for to do
Ответы
Автор ответа:
0
Var n,i:integer; s:real;
Begin
write('n='); readln(n);
s:=0;
for i:=1 to (n*2)-1 do
if (i mod 2)<>0 then s:=s+1/i;
writeln('s=',s:0:2);
End.
Begin
write('n='); readln(n);
s:=0;
for i:=1 to (n*2)-1 do
if (i mod 2)<>0 then s:=s+1/i;
writeln('s=',s:0:2);
End.
Похожие вопросы
Предмет: Музыка,
автор: Аноним
Предмет: Русский язык,
автор: aznabaevaar
Предмет: Английский язык,
автор: Zakharovasofia444
Предмет: Химия,
автор: shahali
Предмет: География,
автор: vodynoy