Cod sursa(job #70957)

Utilizator cezar305Mr. Noname cezar305 Data 8 iulie 2007 18:32:59
Problema Farfurii Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.83 kb
var a:array[0..110000]of integer;
    n,m,i,j,z,x,k:int64;
begin
     assign(input,'farfurii.in');
     reset(input);
     assign(output,'farfurii.out');
     rewrite(output);
     readln(n,k);
     m:=2;
     while m<=n+1 do
     begin
          z:=m*(m-1) div 2;
          if z>k then break;
 	  inc(m);
     end;
     dec(m);
     i:=1;
     while i<=n-m-1 do
     begin
          write(i,' ');
          a[i]:=1;
          inc(i); 
     end;
     x:=m+1;
     z:=x*(x-1) div 2;
     z:=z-k;
     if n=1 then z:=0;
     if z>0 then
     begin
          x:=n-z;
          a[x]:=1;
          if x>0 then write(x,' ');
     end;
     i:=n;
     while i>=n-m do
     begin
          if i<1 then break;
          if a[i]=1 then continue;
          write(i,' ');
          dec(i);
     end;
close(output);
end.