Cod sursa(job #634266)

Utilizator Ciurea93Ciurea Ionut Ciurea93 Data 15 noiembrie 2011 21:32:45
Problema Farfurii Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.43 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.