٥륯åĥ
Ʒο礭ˣ£ãĤȤơġ0ȤޤʤäΤǡĤ1ʾȤƣ£ã-ģã£ɤʤ뤫ͤƤߤޤ
Ĵ٤Ƥߤȣݣġ¤ǤʤȤʤ褦ʤΤǣ+ġ¡++1Ȥʤ褦£ãĤȡ7641-14676174ޤޤ
£ģäΤƱϤޤĴ٤Ƥޤ󤬡̵äݤǤ͡
68ڡ 0:21:26 46402
٥륯åĥ
ǼĤǧڤޤΤޤޤΤ褦ʡ
68ڡ 0:34:10 46403
ǯ
äȤǤȻפä顢4176ȵդοäƤ
a>b>c>dȤȡϡa-d, b-1-c, 10-1+c-b, 10+d-a
aˤʤΤϡa-d, b-1-c̵10+d-aadδ֤;͵̵
9+c-b=a9-a=b-cˤȤȡa=8λ0a-d=aǤξξ˹ʤ
a7, 6Τ줫a=7b-c=2ǡ6174Ĥä
68ڡ 1:18:07 46404

Ф
ǧڤƤޤ󤬴˽񤭹ߤ⤢Τǡ(^_^;)
ȤPQRSȤƷοABCD (D0)Ȥ
DCBAABCDPQRSʤΤ
S10AD
R9BC
QCB1orBCQ9
ΤȤR9ʤΤBCD9ȤʤʤʤΤŬ
äBC
PDA

ȤʤΤPS10, QR8Ǥ
­10(1,9)(2,8)(3,7)(4,6)(5,5)
­8(0,8)(1,7)(2,6)(3,5)(4,4)

Ȥ߹碌顢򤹤SˤʤʤΡPˤʤꤽʿʤΤ
(A,B,C,D)(1,2,7,8)(0,2,8,8)(1,4,6,7)(2,4,6,6)(3,4,5,6)
ĤäΤǤȤϼºݤ˰Ƹڤޤ

ʤˤˡƤޤOrz
68ڡ 1:21:13 46405
Ȥ
Basic a<=b<=c<=dȤeȤ

FOR a=0 TO 9
FOR b=a TO 9
FOR c=b TO 9
FOR d=c TO 9
LET e=10^3*d+10^2*c+10*b+a-(10^3*a+10^2*b+10*c+d)
LET f=IP(e/10^3)
LET g=IP(e/10^2)-10*IP(e/10^3)
LET h=(10^2*FP(e/10^2)-10*FP(e/10))/10
LET i=10*FP(e/10)
IF a*b*c*d<>0 AND f+g+h+i=a+b+c+d AND f*g*h*i=a*b*c*d THEN PRINT e
NEXT d
NEXT c
NEXT b
NEXT a
END

f9ơ6174()
˭ԡ 68ڡ 1:45:23 MAIL:fttnm528@ybb.ne.jp 46406
ˤ
ABCD

ABCD-DCBA

10+D-A=C
10+C-1-B=A
B-1-C=D
A-D=B

Ŭޤ

Ķļˡ 68ڡ 2:21:39 46408
Ȥ
5οץdzΤ᤿ΤǤ̵3
Basic a<=b<=cȤdȤ

FOR a=0 TO 9
FOR b=a TO 9
FOR c=b TO 9
LET d=10^2*c+10*b+a-(10^2*a+10*b+c)
LET e=IP(d/10^2)
LET f=IP(d/10)-10*IP(d/10^2)
LET g=10*FP(d/10)
IF a*b*c<>0 AND e+f+g=a+b+c AND e*f*g=a*b*c THEN PRINT d
NEXT c
NEXT b
NEXT a
END

f9ơ495(3)
˭ԡ 68ڡ 2:20:02 MAIL:fttnm528@ybb.ne.jp 46409
(Keigei)
6174 ͣΥץ쥫Ǥ뤳Ȥͭ̾ǡ
ΤäƤСɤִ֤Фޤ
https://ja.wikipedia.org/wiki/%E3%82%AB%E3%83%97%E3%83%AC%E3%82%AB%E6%95%B0
68ڡ 5:20:30 46410


ʤĤΤȤǤ˿ʤ®ƤäΤǡˡȻפʤ顦
£ãġݣģã£Ǻ
ΰ̡ݣ
ɴΰ̡¡ݣáݣ
ΰ̡ܣáݣ¡ݣ᣹ܣáݣ
ΰ̡ܣġݣ
麹ΰ̤οȰΰ̤οʣ¤ȣáˤ¤¡äʤΤǣ£äȤƣȤޤ
Ǿδط
ݢ


ηˤʤΤǡƣݣ᣶ܣݣᣴȸΣΤǣݣ᣶é夭ޤ
ץ쥫Ǥ͡轵ĩ蘆ƤƤ
ϲδۡhttp://www.geocities.jp/hagure874/Ρؼ̳٤˾ܤ⤬ܤäƤΤ򺣻פФޤ
Ϻꡡ 68ڡ 21:57:44 46411
ϥ饮㡼ƥ
Ϥ褦ޤ

ץǤ
68ڡ 8:20:16 HomePage:˥46412
ϺĹ
ȯäΤǡʺϸ褦ʤǤ͡
ϫޤץ쥫ʹޤʬˤ˺ޤ
68ڡ 9:29:12 46413
ߤ
¤ؤƤǤݺǾϳư̤ο¤ܿʤΤǡ
֣ۤʤ룴Ĥο¤ܿפȤ߹碌õȤˡ
ĤοȤ߹碌Ϥ̤˽񤭽ФбǤȽǡ

Ĵ٤ƤäΤǡ˸ĤäΤϥåǤ
68ڡ 10:55:01 46414
Ȥ
饤缭ŵA099009 (ץ쥫)6ޤǤΡMathematica Υɤ

f[n_] := Block[{d = IntegerDigits@ n, a, b}, a = FromDigits@ Sort@ d; b = FromDigits@ Reverse@ Sort@ d; n == b - a]; Select[Range@ 1000000, f]

,ʬΡMathematica home edition 8.0.4 ˥ԥڤơenter ơ15ä餤ǡ{495, 6174, 549945, 631764} Ǥޤʬ⽽Basic2,3,4,5,6ޤǤǤΤޤ

FOR a=1 TO 9
FOR b=a TO 9
let c=10*b+a-(10*a+b)
let d=ip(c/10)
let e=c-10*ip(c/10)
if d+e=a+b and d*e=a*b then print c
FOR f=b TO 9
LET g=10^2*f+10*b+a-(10^2*a+10*b+f)
LET h=IP(g/10^2)
LET i=IP(g/10)-10*IP(g/10^2)
LET j=g-10*IP(g/10)
IF h+i+j=a+b+f AND h*i*j=a*b*f THEN PRINT g
FOR k=f TO 9
LET l=10^3*k+10^2*f+10*b+a-(10^3*a+10^2*b+10*f+k)
LET m=IP(l/10^3)
LET n=IP(l/10^2)-10*IP(l/10^3)
LET o=IP(l/10)-10*IP(l/10^2)
LET p=l-10*IP(l/10)
IF m+n+o+p=a+b+f+k AND m*n*o*p=a*b*f*k THEN PRINT l
FOR q=k TO 9
LET r=10^4*q+10^3*k+10^2*f+10*b+a-(10^4*a+10^3*b+10^2*f+10*k+q)
LET s=IP(r/10^4)
LET t=IP(r/10^3)-10*IP(r/10^4)
LET u=IP(r/10^2)-10*IP(r/10^3)
LET v=IP(r/10)-10*IP(r/10^2)
LET w=g-10*IP(r/10)
IF s+t+u+v+w=a+b+f+k+q AND s*t*u*v*w=a*b*f*k*q THEN PRINT r
FOR x=q TO 9
LET y=10^5*x+10^4*q+10^3*k+10^2*f+10*b+a-(10^5*a+10^4*b+10^3*f+10^2*k+10*q+x)
LET z1=IP(y/10^5)
LET z2=IP(y/10^4)-10*IP(y/10^5)
LET z3=IP(y/10^3)-10*IP(y/10^4)
LET z4=IP(y/10^2)-10*IP(y/10^3)
LET z5=IP(y/10)-10*IP(y/10^2)
LET z6=y-10*IP(y/10)
IF z1+z2+z3+z4+z5+z6=a+b+f+k+q+x AND z1*z2*z3*z4*z5*z6=a*b*f*k*q*x AND z1^2+z2^2+z3^2+z4^2+z5^2+z6^2=a^2+b^2+f^2+k^2+q^2+x^2 THEN PRINT y
next x
next q
NEXT k
NEXT f
NEXT b
NEXT a
END

f9

631764,6174,549945,495

1ðʲϷ¬Ǥޤ󤬽BasicǤƱMathematicaƱǤޤ
˭ԡ 68ڡ 13:12:34 46415
baLLjugglermoka
Nξΰ̲ϡ
68ڡ 15:01:47 46416
ҥ
4321-1234ξǺФ3087ˤʤäΤ
٤8730-378κФ8352ˤʤä
٤8532-2358ơ
ȷ֤6174˼«ޤ

ǥ롼פˤʤ뤫ʤȤפޤ
ޤäƤ褫äǤ
68ڡ 15:37:14 46417
ֿء׾ι
abcd-dcba=bdac򤭤ޤ
68ڡ 16:09:03 46418
ˤ⡼
Ф
ץ쥫ȤϽ鼪Ǥ
οǣĤ̵ȤΤäϤٶˤʤޤ

οabcd
羮¤ؤ£ãġʣ¡áġˤȤơ

a ݣ
bʣ¡ݣáˡݣ
cݡʣ¡ݣá
dݡʣݣġ

abޤcdŪ˷ޤ뤳
a-1b
ݤȤơabcdФڤƤȤƻˤޤ
ȡa=6 b=1 c=7 d=4äΤǡ򣶣פޤ

󡢥եߤ˽黲äƤȤˤʤޤ
ɤꤤפޤ
ڽǤΤޤ¡ 68ڡ 23:04:54 46419
fumio
ˤϡʤȤ򤱤ޤϤϤϡ
ǤϤǤϡ
611 8:49:50 46420

եߵǤ
ȤƤڤäǤ
󤢤꤬Ȥޤ
611 21:58:08 46421
cocogoo
ϻˤȤäƤǥץʬ餺ޤɺ硢ǾǾΰͤ2345Ȥʤ10ξˤĤƥåޤơ1,7,4,noȤ߹碌˹Ԥꡢ?6ȽޤϲãޤǤֻ֤ޤ᤯򤫤줿ޤǤ
612ʷ 8:34:01 46422

#46415
Τˡ10ǯPCǤֻ˽λޤ
614ʿ 1:04:24 46423
ֿء׾ι
Ϥ٤ߤǤǰǤ
615ڡ 5:48:47 46424