|  | 
|  | 
| вернуться в форум | I HAVE THE CODE {$APPTYPE CONSOLE}
 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: I HAVE THE CODE You are the best problemreaderRe: I HAVE THE CODE WOW, lol. if only such methods could solve all real life problems.
 edit : we solve problems to enhance our skills, not to get the result fast.
 
 Edited by author 14.09.2025 16:54
 | 
 | 
|