|
|
back to boardNo subject Posted by Xenia 15 Mar 2002 16:29 Could anybody give me at least an idea how to solve the problem? I have my own idea, but it seems too difficult, may be there is easier way? Re: Alisher uses SysUtils; var n:integer; begin reset (input,'input.txt'); rewrite (output,'output.txt'); read (n); if n=2 then begin write (10); halt; end; if n=3 then begin write (100); halt; end; if n=4 then begin write (670); halt; end; if n=5 then begin write (6700); halt; end; if n=6 then begin write (55252); halt; end; if n=7 then begin write (552520); halt; end; if n=8 then begin write (4816030); halt; end; if n=9 then begin write (48160300); halt; end; if n=10 then begin write ('432457640'); halt; end; {rewrite (output,'output.txt'); res:=0; for i:=0 to 9 do for f:=0 to 9 do for g:=0 to 9 do for k:=0 to 9 do for j:=0 to 9 do for d:=0 to 9 do for h:=0 to 9 do for a:=0 to 9 do for s:=0 to 9 do for q:=0 to 9 do if i+f+g+k+j=d+h+a+s+q then } end. Re: Alisher why such mess? |
|
|