[url=recordshow.php?rid=14740]记录[/url]

代码如下：

[codep]

var
  s,x:longint;
  f,w:real;
begin
   f:=7;
   w:=0;
   readln(s,x);
   while w<s-x do
     begin
       w:=w+f;
       f:=f*0.98;
       writeln(f:0:4);{测试语句}
     end;
   if s+x-w<f then writeln('n')else writeln('y');
end.

[/codep] 还能20分？