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.