Предмет: Информатика, автор: nak97

Написать программу, которая вычисляет сумму первых n членов ряда 1+1/3+1/5+1/7...1/n

 

через опреатор for to do

Ответы

Автор ответа: BlackW1nd
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.
Похожие вопросы
Предмет: Музыка, автор: Аноним
Предмет: Русский язык, автор: aznabaevaar