1/1+1/2+1/4+1/8+1/16 go 1/1024 (pascal)
циклические алгоритмы , нужна полностью программа! ​

program Calc;

var

 n, s: Double;

 i: Integer;

begin

 s := 0;

 n := 1;

 while n <= 1024 do begin

   s := s + 1 / n;

   n := n * 2;

 end;

 WriteLn ('Сумма = ', s :20 :20);

 ReadLn;

end.