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

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