Вычислите на паскаль s=1+1/2+1/4+1/8...1/(2^N)
Вычислите на паскаль s=1+1/2+1/4+1/8...1/(2^N)
Гость
Ответ(ы) на вопрос:
ГостьВозможны небольшие ошибки
var a,b,s,n,i: integer;
begin
readln (n);
s:=1
for i:=1 to n do
begin
b:=0;
for a:=1 to i do
b:=b+2;
end;
s:=s+1/b;
end;
writeln (s);
end.
Не нашли ответ?
Похожие вопросы