Pagini recente » pregatire_arhiva_educationala | Cod sursa (job #1847840) | Cod sursa (job #2299066) | Cod sursa (job #1766489) | Cod sursa (job #218845)
Cod sursa(job #218845)
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.