Pagini recente » Cod sursa (job #1375938) | Cod sursa (job #561272) | Cod sursa (job #2628792) | Cod sursa (job #2084529) | Cod sursa (job #218846)
Cod sursa(job #218846)
var f,g:text;
n,i,o,j:longint;
k,s,p:int64;
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.