01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / AN7

 PROGRAM masiv3;
   var s,y,x,eps:real;
       n:integer;

  begin
     writeln('‚ўҐ¤ЁвҐ x Ё eps');
     readln(x,eps);
     s:=0;
     n:=1;
     y:=sqr(x+0.2)/2;
     while y/exp((n-1)*ln(2))>=eps do begin
     s:=s+y/exp((n-1)*ln(2));
     n:=n+1;
     end;
     writeln('n=', n-1,y/exp((n-1)*ln(2)):10:4, ' ','s=',s:10:3);
     readln
 end.