Cod sursa(job #218845)

Utilizator antoanelaAntoanela Siminiuc antoanela Data 3 noiembrie 2008 19:47:44
Problema Farfurii Scor 90
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.5 kb
var f,g:text;
    n,k,s,i,p,o,j:longint;
    v:array[0..100010]of longint;
begin
assign(f,'farfurii.in');
assign(g,'farfurii.out');
reset(f);
rewrite(g);
read(f,n,k);
while (s<=k)do
  begin
    inc(i);
    inc(s,i);
  end;
dec(s,i);
p:=k-s;
o:=n;
for j:=n-i+1 to n-p do
  begin
    v[j]:=o;
    dec(o);
  end;
v[n-i]:=o;
dec(o);
for j:=n-p+1 to n do
  begin
     v[j]:=o;
     dec(o);
  end;
for j:=1 to n-i-1 do v[j]:=j;
for i:=1 to n do write(g,v[i],' ');
close(f);
close(g);
end.