СРОЧНО!!! ПОМОГИТЕ ПЛИЗ!!! (см.в вложения) Задание ** тему: "Циклы" В турбо паскале....В...

Question

СРОЧНО!!! ПОМОГИТЕ ПЛИЗ!!! (см.в вложения) Задание на тему: "Циклы" В турбо паскале....В коде должно быть:
while a>0,001
for
S=S+a;
n=n+1;
a:=....
(Что то типа этого, но это не весь код...)
Напишите пожалуйста весь код к этому заданию...в турбо паскале....

---

Answer 1

Var
  s,a:real;
  n,b:integer;
begin
b:=1;
repeat
  n:=n+1;
  b:=b*2;
  a:=(2*n-1)/b;
  s:=s+a;
  until a<0.001;<br>writeln('S=',s);
readln;
end.