Cod sursa(job #343771)
Utilizator | Andrei andrey932 | Data | 27 august 2009 12:04:09 |
---|---|---|---|
Problema | Lacate | Scor | 20 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.5 kb |
var t:text;
n,i,j,nc,r:longint;
x:array[0..260] of byte;
begin
assign(t,'lacate.in'); reset(t);
read(t,n); close(t);
nc:=0;
r:=0;
assign(t,'lacate.out'); rewrite(t);
writeln(t,trunc(n*(n-1)/2),' ',n-1);
for i:=1 to n do
begin
for j:=1 to nc do
begin
write(t,x[j],' ');
inc(x[j]);
end;
inc(nc);
x[nc]:=r+1;
for j:=nc to n-1 do
begin
inc(r);
write(t,r,' ');
end;
writeln(t);
end;
close(t);
end.