| 
  
    |  |  |  |  
    |  | 讨论 Discussion |  |  
    |  | 
      
        |  菊花上长肿瘤 |  
        | var s,n,i,j,k:integer; begin
 assign(input,'p1029.in');
 assign(output,'p1029.out');
 reset(input);
 rewrite(output);
 read(n);
 i:=1;
 s:=1;
 k:=1;
 j:=1;
 while i<n do
 begin
 i:=i+1;
 if j+1>k then
 begin
 j:=1;
 s:=1;
 k:=k+1;
 end
 else
 begin
 j:=j+1;
 s:=s+2;
 end;
 end;
 write(s);
 close(input);
 close(output);
 end.
 
 (  )
 |  
 |  
    |  |  |  |  | 
      
        |  |  |  |  
        |  | 
            
              | Flag |  |  
              | 题号 | P1051 |  
            |  | 其它 |  
              | 通过 | 74人 |  
              | 提交 | 333次 |  
              | 通过率 | 22% |  
              | 难度 | 0 |  |  |  
        |  |  |  |  |