3
: , .
- FACT.PAS. i P. n =20. . n, n! . , n , . ? ?
- FACT, 4, , .
- 15 1+2+3++15.
- 2 56, 5.
- n1 n2.
- 1626 . 20 . , 4%, 2006 .?
- , 100.
- n (n 1999). , (), . , : 2222, 6116, 0440.
. , For 1 4. m , . r . : r:=10*r + m mod 10 ( ) m:=m div 10 ( ). i, m r . .
i | m | r |
0*10+3994 mod 10=0+4=4 | ||
4*10+399 mod 10=40+9=49 | ||
49*10+39 mod 10 =490+9=499 | ||
499*10+3 mod 10=4990+3=4993 |
- , , , , , .
- , N.
100 999, - , , N . , 3 , 1 9, 0 9.
program primer10;
var i,j,k,n:integer;
begin
write(' N=');
readln(n);
for i:=1 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
if i+j+k=n then writeln(i,j,k);
end.
writeln(i,j,k) , . , , i-, j-, k-, : writeln(i*100+j*10+k).
:
) ? , .
) N?