Информатика, опубликовано 2018-08-22 23:14:33 by Гость
Дано целое число n вычислить s=1+1/3+1/7+...+1/(2n+1)
Ответ оставил Гость
Var i,n:integer; s:real;
begin
write(n = ); readln(n);
s:=1;
for i:=1 to n do s:=s+1/(2*i+1);
writeln(s = ,s);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.