Cod sursa(job #110325)
Utilizator | Kis Levente Lorand lori | Data | 26 noiembrie 2007 10:23:40 |
---|---|---|---|
Problema | Multimi2 | Scor | 10 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.41 kb |
var n,k,x1,x2,i:longint;
begin
assign(input,'multimi2.in'); reset(input);
assign(output,'multimi2.out'); rewrite(output);
readln(n);
k:=trunc(sqrt(n*(n+1)/2));
for i:=1 to k do x1:=x1+i;
for i:=k+1 to n do x2:=x2+i;
writeln(abs(x1-x2));
writeln(k);
for i:=1 to k do write(i,' ');
writeln;
writeln(n-k);
for i:=k+1 to n do write(i,' ');
writeln;
close(input); close(output);
end.