Cod sursa(job #464385)
| Utilizator |  E1 La5c01 05_Yohn |
Data | 19 iunie 2010 22:01:35 |
|---|---|---|---|
| Problema | Farfurii | Scor | 90 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.32 kb |
var n,k,i,j,nr:longint;
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);
for j:=1 to n-i do write(j,' ');
nr:=n-(i*(i-1)div 2-k);
write(nr,' ');
for j:=n downto n-i+1 do if j<>nr then write(j,' ');
close(output);
end.
