Pagini recente » Cod sursa (job #1932050) | Cod sursa (job #2293802) | Cod sursa (job #2003116) | Cod sursa (job #2896593) | Cod sursa (job #70957)
Cod sursa(job #70957)
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.