Cod sursa(job #464387)

Utilizator 05_YohnE1 La5c01 05_Yohn Data 19 iunie 2010 22:06:13
Problema Farfurii Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.38 kb
var n,k,i,j,nr:int64;
begin
assign(input,'farfurii.in');reset(input);
read(n,k);
assign(output,'farfurii.out');rewrite(output);
i:=1;
while i*(i-1)/2<=k do inc(i);
j:=1;
while j<=n-i do begin
    write(j,' ');
    inc(j);
    end;
nr:=n-(i*(i-1)div 2-k);
write(nr,' ');
j:=n;
while j>=n-i+1 do begin
    if j<>nr then write(j,' ');
    dec(j);
    end;
close(output);
end.