设为首页收藏本站
开启辅助访问 切换到窄版

数学中国

 找回密码
 注册
搜索
热搜: 活动 交友 discuz
数学中国»论坛 › 数学中国论坛 › 基础数学 › 哥猜等难题和猜想 › 朋友，请看一下重要启示！
12345678910... 19下一页
返回列表 发新帖
楼主: ysr

朋友，请看一下重要启示！

[复制链接]
ysr
 楼主| 发表于 2023-1-22 16:26 | 显示全部楼层
有166组/641801265625=801125^2=231048455625+410752810000=480675^2+640900^2
/483087552025=695045^2=376106225625+106981326400=613275^2+327080^2
/641801265625=801125^2=410752810000+231048455625=640900^2+480675^2
/167158322500=408850^2=302412100+166855910400=17390^2+408480^2
/167158322500=408850^2=166855910400+302412100=408480^2+17390^2
/167158322500=408850^2=361228036+166797094464=19006^2+408408^2
/167158322500=408850^2=166797094464+361228036=408408^2+19006^2
/323827007364=569058^2=166797094464+157029912900=408408^2+396270^2
/318086976064=563992^2=166797094464+151289881600=408408^2+388960^2
/167158322500=408850^2=395532544+166762789956=19888^2+408366^2
/167158322500=408850^2=166762789956+395532544=408366^2+19888^2
/167158322500=408850^2=694322500+166464000000=26350^2+408000^2
/167158322500=408850^2=166464000000+694322500=408000^2+26350^2
/305145760000=552400^2=166464000000+138681760000=408000^2+372400^2
/273445326400=522920^2=166464000000+106981326400=408000^2+327080^2
/260100000000=510000^2=166464000000+93636000000=408000^2+306000^2
/167158322500=408850^2=864007236+166294315264=29394^2+407792^2
/167158322500=408850^2=166294315264+864007236=407792^2+29394^2
/167158322500=408850^2=1110222400+166048100100=33320^2+407490^2
/167158322500=408850^2=166048100100+1110222400=407490^2+33320^2
/167158322500=408850^2=1322049600+165836272900=36360^2+407230^2
/167158322500=408850^2=165836272900+1322049600=407230^2+36360^2
/167158322500=408850^2=1509322500+165649000000=38850^2+407000^2
/167158322500=408850^2=165649000000+1509322500=407000^2+38850^2
/167158322500=408850^2=1907942400+165250380100=43680^2+406510^2
/167158322500=408850^2=165250380100+1907942400=406510^2+43680^2
/167158322500=408850^2=2051002944+165107319556=45288^2+406334^2
/167158322500=408850^2=165107319556+2051002944=406334^2+45288^2
/167158322500=408850^2=2562586884+164595735616=50622^2+405704^2
/167158322500=408850^2=164595735616+2562586884=405704^2+50622^2
/167158322500=408850^2=3332521984+163825800516=57728^2+404754^2
/167158322500=408850^2=163825800516+3332521984=404754^2+57728^2
/167158322500=408850^2=3910000900+163248321600=62530^2+404040^2
/167158322500=408850^2=163248321600+3910000900=404040^2+62530^2
/167158322500=408850^2=4225000000+162933322500=65000^2+403650^2
/167158322500=408850^2=162933322500+4225000000=403650^2+65000^2
/167158322500=408850^2=5168172100+161990150400=71890^2+402480^2
/167158322500=408850^2=161990150400+5168172100=402480^2+71890^2
/167158322500=408850^2=5877368896+161280953604=76664^2+401598^2
/167158322500=408850^2=161280953604+5877368896=401598^2+76664^2
/167158322500=408850^2=6742052100+160416270400=82110^2+400520^2
/167158322500=408850^2=160416270400+6742052100=400520^2+82110^2
/167158322500=408850^2=7004685636+160153636864=83694^2+400192^2
/167158322500=408850^2=160153636864+7004685636=400192^2+83694^2
/167158322500=408850^2=7821633600+159336688900=88440^2+399170^2
/167158322500=408850^2=159336688900+7821633600=399170^2+88440^2
/167158322500=408850^2=7911035136+159247287364=88944^2+399058^2
/167158322500=408850^2=159247287364+7911035136=399058^2+88944^2
/167158322500=408850^2=9072562500+158085760000=95250^2+397600^2
/167158322500=408850^2=158085760000+9072562500=397600^2+95250^2
/167158322500=408850^2=9541382400+157616940100=97680^2+397010^2
/110839721476=332926^2=9541382400+101298339076=97680^2+318274^2
/167158322500=408850^2=157616940100+9541382400=397010^2+97680^2
/167158322500=408850^2=10128409600+157029912900=100640^2+396270^2
/323827007364=569058^2=157029912900+166797094464=396270^2+408408^2
/167158322500=408850^2=157029912900+10128409600=396270^2+100640^2
/299460672900=547230^2=157029912900+142430760000=396270^2+377400^2
/167158322500=408850^2=11949113344+155209209156=109312^2+393966^2
/167158322500=408850^2=155209209156+11949113344=393966^2+109312^2
/167158322500=408850^2=13105212484+154053110016=114478^2+392496^2
/167158322500=408850^2=154053110016+13105212484=392496^2+114478^2
/167158322500=408850^2=13462960900+153695361600=116030^2+392040^2
/167158322500=408850^2=153695361600+13462960900=392040^2+116030^2
/167158322500=408850^2=15868440900+151289881600=125970^2+388960^2
/35338736196=187986^2=15868440900+19470295296=125970^2+139536^2
/52886200900=229970^2=15868440900+37017760000=125970^2+192400^2
/318086976064=563992^2=151289881600+166797094464=388960^2+408408^2
/167158322500=408850^2=151289881600+15868440900=388960^2+125970^2
/293720641600=541960^2=151289881600+142430760000=388960^2+377400^2
/167158322500=408850^2=17582760000+149575562500=132600^2+386750^2
/167158322500=408850^2=149575562500+17582760000=386750^2+132600^2
/35338736196=187986^2=19470295296+15868440900=139536^2+125970^2
/167158322500=408850^2=19470295296+147688027204=139536^2+384302^2
/64890429696=254736^2=19470295296+45420134400=139536^2+213120^2
/167158322500=408850^2=147688027204+19470295296=384302^2+139536^2
/167158322500=408850^2=20277760000+146880562500=142400^2+383250^2
/167158322500=408850^2=146880562500+20277760000=383250^2+142400^2
/167158322500=408850^2=22180144900+144978177600=148930^2+380760^2
/167158322500=408850^2=144978177600+22180144900=380760^2+148930^2
/167158322500=408850^2=22878377536+144279944964=151256^2+379842^2
/167158322500=408850^2=144279944964+22878377536=379842^2+151256^2
/167158322500=408850^2=24727562500+142430760000=157250^2+377400^2
/299460672900=547230^2=142430760000+157029912900=377400^2+396270^2
/293720641600=541960^2=142430760000+151289881600=377400^2+388960^2
/167158322500=408850^2=142430760000+24727562500=377400^2+157250^2
/227956592704=477448^2=142430760000+85525832704=377400^2+292448^2
/167158322500=408850^2=25619843844+141538478656=160062^2+376216^2
/167158322500=408850^2=141538478656+25619843844=376216^2+160062^2
/167158322500=408850^2=26360769600+140797552900=162360^2+375230^2
/167158322500=408850^2=140797552900+26360769600=375230^2+162360^2
/167158322500=408850^2=28476562500+138681760000=168750^2+372400^2
/305145760000=552400^2=138681760000+166464000000=372400^2+408000^2
/167158322500=408850^2=138681760000+28476562500=372400^2+168750^2
/167158322500=408850^2=29984385600+137173936900=173160^2+370370^2
/167158322500=408850^2=137173936900+29984385600=370370^2+173160^2
/167158322500=408850^2=30493541376+136664781124=174624^2+369682^2
/167158322500=408850^2=136664781124+30493541376=369682^2+174624^2
/167158322500=408850^2=30772878084+136385444416=175422^2+369304^2
/167158322500=408850^2=136385444416+30772878084=369304^2+175422^2
/167158322500=408850^2=33847168576+133311153924=183976^2+365118^2
/167158322500=408850^2=133311153924+33847168576=365118^2+183976^2
/167158322500=408850^2=36172236100+130986086400=190190^2+361920^2
/167158322500=408850^2=130986086400+36172236100=361920^2+190190^2
/52886200900=229970^2=37017760000+15868440900=192400^2+125970^2
/167158322500=408850^2=37017760000+130140562500=192400^2+360750^2
/82437894400=287120^2=37017760000+45420134400=192400^2+213120^2
/167158322500=408850^2=130140562500+37017760000=360750^2+192400^2
/167158322500=408850^2=38679088900+128479233600=196670^2+358440^2
/167158322500=408850^2=128479233600+38679088900=358440^2+196670^2
/167158322500=408850^2=41114861824+126043460676=202768^2+355026^2
/167158322500=408850^2=126043460676+41114861824=355026^2+202768^2
/167158322500=408850^2=43085304900+124073017600=207570^2+352240^2
/167158322500=408850^2=124073017600+43085304900=352240^2+207570^2
/167158322500=408850^2=43665117444+123493205056=208962^2+351416^2
/167158322500=408850^2=123493205056+43665117444=351416^2+208962^2
/64890429696=254736^2=45420134400+19470295296=213120^2+139536^2
/82437894400=287120^2=45420134400+37017760000=213120^2+192400^2
/167158322500=408850^2=45420134400+121738188100=213120^2+348910^2
/167158322500=408850^2=121738188100+45420134400=348910^2+213120^2
/167158322500=408850^2=46332562500+120825760000=215250^2+347600^2
/167158322500=408850^2=120825760000+46332562500=347600^2+215250^2
/167158322500=408850^2=47453394244+119704928256=217838^2+345984^2
/167158322500=408850^2=119704928256+47453394244=345984^2+217838^2
/167158322500=408850^2=48911745600+118246576900=221160^2+343870^2
/167158322500=408850^2=118246576900+48911745600=343870^2+221160^2
/167158322500=408850^2=50050638400+117107684100=223720^2+342210^2
/167158322500=408850^2=117107684100+50050638400=342210^2+223720^2
/167158322500=408850^2=52826425600+114331896900=229840^2+338130^2
/167158322500=408850^2=114331896900+52826425600=338130^2+229840^2
/167158322500=408850^2=53442342976+113715979524=231176^2+337218^2
/167158322500=408850^2=113715979524+53442342976=337218^2+231176^2
/167158322500=408850^2=55500763396+111657559104=235586^2+334152^2
/167158322500=408850^2=111657559104+55500763396=334152^2+235586^2
/167158322500=408850^2=59542832196+107615490304=244014^2+328048^2
/167158322500=408850^2=107615490304+59542832196=328048^2+244014^2
/167158322500=408850^2=60176996100+106981326400=245310^2+327080^2
/153812996100=392190^2=60176996100+93636000000=245310^2+306000^2
/483087552025=695045^2=106981326400+376106225625=327080^2+613275^2
/273445326400=522920^2=106981326400+166464000000=327080^2+408000^2
/167158322500=408850^2=106981326400+60176996100=327080^2+245310^2
/167158322500=408850^2=65859983424+101298339076=256632^2+318274^2
/110839721476=332926^2=101298339076+9541382400=318274^2+97680^2
/167158322500=408850^2=101298339076+65859983424=318274^2+256632^2
/167158322500=408850^2=67081000000+100077322500=259000^2+316350^2
/167158322500=408850^2=100077322500+67081000000=316350^2+259000^2
/167158322500=408850^2=68084464900+99073857600=260930^2+314760^2
/167158322500=408850^2=99073857600+68084464900=314760^2+260930^2
/167158322500=408850^2=70692174400+96466148100=265880^2+310590^2
/167158322500=408850^2=96466148100+70692174400=310590^2+265880^2
/167158322500=408850^2=70900777984+96257544516=266272^2+310254^2
/167158322500=408850^2=96257544516+70900777984=310254^2+266272^2
/167158322500=408850^2=73522322500+93636000000=271150^2+306000^2
/260100000000=510000^2=93636000000+166464000000=306000^2+408000^2
/153812996100=392190^2=93636000000+60176996100=306000^2+245310^2
/167158322500=408850^2=93636000000+73522322500=306000^2+271150^2
/167158322500=408850^2=74761777476+92396545024=273426^2+303968^2
/167158322500=408850^2=92396545024+74761777476=303968^2+273426^2
/167158322500=408850^2=75779078400+91379244100=275280^2+302290^2
/167158322500=408850^2=91379244100+75779078400=302290^2+275280^2
/167158322500=408850^2=77757322500+89401000000=278850^2+299000^2
/167158322500=408850^2=89401000000+77757322500=299000^2+278850^2
/167158322500=408850^2=80610566400+86547756100=283920^2+294190^2
/167158322500=408850^2=86547756100+80610566400=294190^2+283920^2
/167158322500=408850^2=81632489796+85525832704=285714^2+292448^2
/227956592704=477448^2=85525832704+142430760000=292448^2+377400^2
/167158322500=408850^2=85525832704+81632489796=292448^2+285714^2
/平方数408850^2的拆分解有:67组/408850^2=17390^2+408480^2
/408850^2=19006^2+408408^2
/408850^2=19888^2+408366^2
/408850^2=26350^2+408000^2
/408850^2=29394^2+407792^2
/408850^2=33320^2+407490^2
/408850^2=36360^2+407230^2
/408850^2=38850^2+407000^2
/408850^2=43680^2+406510^2
/408850^2=45288^2+406334^2
/408850^2=50622^2+405704^2
/408850^2=57728^2+404754^2
/408850^2=62530^2+404040^2
/408850^2=65000^2+403650^2
/408850^2=71890^2+402480^2
/408850^2=76664^2+401598^2
/408850^2=82110^2+400520^2
/408850^2=83694^2+400192^2
/408850^2=88440^2+399170^2
/408850^2=88944^2+399058^2
/408850^2=95250^2+397600^2
/408850^2=97680^2+397010^2
/408850^2=100640^2+396270^2
/408850^2=109312^2+393966^2
/408850^2=114478^2+392496^2
/408850^2=116030^2+392040^2
/408850^2=125970^2+388960^2
/408850^2=132600^2+386750^2
/408850^2=139536^2+384302^2
/408850^2=142400^2+383250^2
/408850^2=148930^2+380760^2
/408850^2=151256^2+379842^2
/408850^2=157250^2+377400^2
/408850^2=160062^2+376216^2
/408850^2=162360^2+375230^2
/408850^2=168750^2+372400^2
/408850^2=173160^2+370370^2
/408850^2=174624^2+369682^2
/408850^2=175422^2+369304^2
/408850^2=183976^2+365118^2
/408850^2=190190^2+361920^2
/408850^2=192400^2+360750^2
/408850^2=196670^2+358440^2
/408850^2=202768^2+355026^2
/408850^2=207570^2+352240^2
/408850^2=208962^2+351416^2
/408850^2=213120^2+348910^2
/408850^2=215250^2+347600^2
/408850^2=217838^2+345984^2
/408850^2=221160^2+343870^2
/408850^2=223720^2+342210^2
/408850^2=229840^2+338130^2
/408850^2=231176^2+337218^2
/408850^2=235586^2+334152^2
/408850^2=244014^2+328048^2
/408850^2=245310^2+327080^2
/408850^2=256632^2+318274^2
/408850^2=259000^2+316350^2
/408850^2=260930^2+314760^2
/408850^2=265880^2+310590^2
/408850^2=266272^2+310254^2
/408850^2=271150^2+306000^2
/408850^2=273426^2+303968^2
/408850^2=275280^2+302290^2
/408850^2=278850^2+299000^2
/408850^2=283920^2+294190^2
/408850^2=285714^2+292448^2
回复 支持 反对

使用道具 举报

ysr
 楼主| 发表于 2023-1-22 19:32 | 显示全部楼层
有39组解：144^3=128^2+448^2+1664^2
144^3=128^2+640^2+1600^2
144^3=128^2+896^2+1472^2
144^3=128^2+1472^2+896^2
144^3=128^2+1600^2+640^2
144^3=128^2+1664^2+448^2
144^3=192^2+768^2+1536^2
144^3=192^2+1536^2+768^2
144^3=448^2+128^2+1664^2
144^3=448^2+896^2+1408^2
144^3=448^2+1408^2+896^2
144^3=448^2+1664^2+128^2
144^3=576^2+1152^2+1152^2
144^3=640^2+128^2+1600^2
144^3=640^2+640^2+1472^2
144^3=640^2+1472^2+640^2
144^3=640^2+1600^2+128^2
144^3=768^2+192^2+1536^2
144^3=768^2+768^2+1344^2
144^3=768^2+1344^2+768^2
144^3=768^2+1536^2+192^2
144^3=896^2+128^2+1472^2
144^3=896^2+448^2+1408^2
144^3=896^2+1408^2+448^2
144^3=896^2+1472^2+128^2
144^3=1152^2+576^2+1152^2
144^3=1152^2+1152^2+576^2
144^3=1344^2+768^2+768^2
144^3=1408^2+448^2+896^2
144^3=1408^2+896^2+448^2
144^3=1472^2+128^2+896^2
144^3=1472^2+640^2+640^2
144^3=1472^2+896^2+128^2
144^3=1536^2+192^2+768^2
144^3=1536^2+768^2+192^2
144^3=1600^2+128^2+640^2
144^3=1600^2+640^2+128^2
144^3=1664^2+128^2+448^2
144^3=1664^2+448^2+128^2
回复 支持 反对

使用道具 举报

ysr
 楼主| 发表于 2023-1-22 21:26 | 显示全部楼层
Private Sub Command1_Click()
Dim a, b, c
a1 = Val(Text2)
a = 1
Do While a ^ 2 <= a1 ^ 3
b = 1
Do While b ^ 2 <= a1 ^ 3
c = 1
Do While c ^ 2 <= a1 ^ 3
y = a ^ 2 + b ^ 2 + c ^ 2
If y = a1 ^ 3 Then
s = s & a1 & "^3=" & a & "^2+" & b & "^2+" & c & "^2" & vbCrLf
s1 = s1 + 1
Else
s = s
End If

c = c + 1
Loop
b = b + 1
Loop
a = a + 1
Loop

Text1 = "有" & s1 & "组解：" & s
End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""

End Sub
回复 支持 反对

使用道具 举报

ysr
 楼主| 发表于 2023-1-23 08:24 | 显示全部楼层
有10组解：495^3=496^3-57^3-82^3
82^3=496^3-57^3-495^3
495^3=496^3-82^3-57^3
57^3=496^3-82^3-495^3
165^3=496^3-262^3-477^3
62^3=496^3-279^3-465^3
62^3=496^3-465^3-279^3
165^3=496^3-477^3-262^3
82^3=496^3-495^3-57^3
57^3=496^3-495^3-82^3
回复 支持 反对

使用道具 举报

ysr
 楼主| 发表于 2023-1-23 08:26 | 显示全部楼层
有6组解：495^3=496^3-57^3-82^3
82^3=496^3-57^3-495^3
495^3=496^3-82^3-57^3
57^3=496^3-82^3-495^3
82^3=496^3-495^3-57^3
57^3=496^3-495^3-82^3
回复 支持 反对

使用道具 举报

ysr
 楼主| 发表于 2023-1-23 08:26 | 显示全部楼层
Private Sub Command1_Click()
Dim a, b, c, y
a1 = Val(496)

b = 1
Do While b < 496
c = 1
Do While c < 496
y = Val(496 ^ 3 - b ^ 3 - c ^ 3)
If InStr(Abs(Val(y)) ^ (1 / 3), ".") = 0 And Val(y) >= 0 Then
s = s & Abs(Val(y)) ^ (1 / 3) & "^3=" & 496 & "^3-" & b & "^3-" & c & "^3" & vbCrLf
s1 = s1 + 1
Else
s = s
End If

c = c + 1
Loop
b = b + 1
Loop


Text1 = "有" & s1 & "组解：" & s
End Sub

Private Sub Command2_Click()
Text1 = ""

End Sub
回复 支持 反对

使用道具 举报

ysr
 楼主| 发表于 2023-1-23 10:24 | 显示全部楼层
有84组解：25^3=3^2+80^2+96^2
25^3=3^2+96^2+80^2
25^3=12^2+45^2+116^2
25^3=12^2+60^2+109^2
25^3=12^2+109^2+60^2
25^3=12^2+116^2+45^2
25^3=19^2+60^2+108^2
25^3=19^2+108^2+60^2
25^3=21^2+28^2+120^2
25^3=21^2+72^2+100^2
25^3=21^2+100^2+72^2
25^3=21^2+120^2+28^2
25^3=24^2+60^2+107^2
25^3=24^2+80^2+93^2
25^3=24^2+93^2+80^2
25^3=24^2+107^2+60^2
25^3=28^2+21^2+120^2
25^3=28^2+75^2+96^2
25^3=28^2+96^2+75^2
25^3=28^2+120^2+21^2
25^3=35^2+72^2+96^2
25^3=35^2+96^2+72^2
25^3=44^2+45^2+108^2
25^3=44^2+108^2+45^2
25^3=45^2+12^2+116^2
25^3=45^2+44^2+108^2
25^3=45^2+60^2+100^2
25^3=45^2+100^2+60^2
25^3=45^2+108^2+44^2
25^3=45^2+116^2+12^2
25^3=53^2+60^2+96^2
25^3=53^2+96^2+60^2
25^3=60^2+12^2+109^2
25^3=60^2+19^2+108^2
25^3=60^2+24^2+107^2
25^3=60^2+45^2+100^2
25^3=60^2+53^2+96^2
25^3=60^2+75^2+80^2
25^3=60^2+80^2+75^2
25^3=60^2+96^2+53^2
25^3=60^2+100^2+45^2
25^3=60^2+107^2+24^2
25^3=60^2+108^2+19^2
25^3=60^2+109^2+12^2
25^3=72^2+21^2+100^2
25^3=72^2+35^2+96^2
25^3=72^2+96^2+35^2
25^3=72^2+100^2+21^2
25^3=75^2+28^2+96^2
25^3=75^2+60^2+80^2
25^3=75^2+80^2+60^2
25^3=75^2+96^2+28^2
25^3=80^2+3^2+96^2
25^3=80^2+24^2+93^2
25^3=80^2+60^2+75^2
25^3=80^2+75^2+60^2
25^3=80^2+93^2+24^2
25^3=80^2+96^2+3^2
25^3=93^2+24^2+80^2
25^3=93^2+80^2+24^2
25^3=96^2+3^2+80^2
25^3=96^2+28^2+75^2
25^3=96^2+35^2+72^2
25^3=96^2+53^2+60^2
25^3=96^2+60^2+53^2
25^3=96^2+72^2+35^2
25^3=96^2+75^2+28^2
25^3=96^2+80^2+3^2
25^3=100^2+21^2+72^2
25^3=100^2+45^2+60^2
25^3=100^2+60^2+45^2
25^3=100^2+72^2+21^2
25^3=107^2+24^2+60^2
25^3=107^2+60^2+24^2
25^3=108^2+19^2+60^2
25^3=108^2+44^2+45^2
25^3=108^2+45^2+44^2
25^3=108^2+60^2+19^2
25^3=109^2+12^2+60^2
25^3=109^2+60^2+12^2
25^3=116^2+12^2+45^2
25^3=116^2+45^2+12^2
25^3=120^2+21^2+28^2
25^3=120^2+28^2+21^2
回复 支持 反对

使用道具 举报

ysr
 楼主| 发表于 2023-1-23 10:36 | 显示全部楼层
有39组解：9^3=2^2+7^2+26^2
9^3=2^2+10^2+25^2
9^3=2^2+14^2+23^2
9^3=2^2+23^2+14^2
9^3=2^2+25^2+10^2
9^3=2^2+26^2+7^2
9^3=3^2+12^2+24^2
9^3=3^2+24^2+12^2
9^3=7^2+2^2+26^2
9^3=7^2+14^2+22^2
9^3=7^2+22^2+14^2
9^3=7^2+26^2+2^2
9^3=9^2+18^2+18^2
9^3=10^2+2^2+25^2
9^3=10^2+10^2+23^2
9^3=10^2+23^2+10^2
9^3=10^2+25^2+2^2
9^3=12^2+3^2+24^2
9^3=12^2+12^2+21^2
9^3=12^2+21^2+12^2
9^3=12^2+24^2+3^2
9^3=14^2+2^2+23^2
9^3=14^2+7^2+22^2
9^3=14^2+22^2+7^2
9^3=14^2+23^2+2^2
9^3=18^2+9^2+18^2
9^3=18^2+18^2+9^2
9^3=21^2+12^2+12^2
9^3=22^2+7^2+14^2
9^3=22^2+14^2+7^2
9^3=23^2+2^2+14^2
9^3=23^2+10^2+10^2
9^3=23^2+14^2+2^2
9^3=24^2+3^2+12^2
9^3=24^2+12^2+3^2
9^3=25^2+2^2+10^2
9^3=25^2+10^2+2^2
9^3=26^2+2^2+7^2
9^3=26^2+7^2+2^2
回复 支持 反对

使用道具 举报

ysr
 楼主| 发表于 2023-1-23 10:36 | 显示全部楼层
Private Sub Command1_Click()
Dim a, b, c
a1 = Val(Text2)
a = 1
Do While a ^ 2 <= a1 ^ 3
b = 1
Do While b ^ 2 <= a1 ^ 3
c = 1
Do While c ^ 2 <= a1 ^ 3
y = a ^ 2 + b ^ 2 + c ^ 2
If y = a1 ^ 3 Then
s = s & a1 & "^3=" & a & "^2+" & b & "^2+" & c & "^2" & vbCrLf
s1 = s1 + 1
ElseIf InStr(Sqr(a ^ 2 + b ^ 2), ".") = 0 And InStr(Sqr(c ^ 2 + b ^ 2), ".") = 0 And InStr(Sqr(a ^ 2 + c ^ 2), ".") = 0 Then
s3 = s3 + 1
s2 = s2 & "/g=" & Sqr(a1) ^ 3 & "d=" & Sqr(a ^ 2 + b ^ 2) & "e=" & Sqr(c ^ 2 + b ^ 2) & "f=" & Sqr(a ^ 2 + c ^ 2) & vbCrLf
Else

s = s
End If

c = c + 1
Loop
b = b + 1
Loop
a = a + 1
Loop
If s3 = 0 Then
Text1 = "有" & s1 & "组解：" & s
Else
Text1 = "有" & s1 & "组解：" & s & "完美长方体有" & Val(s3) & "组：" & s2
End If

End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""

End Sub
回复 支持 反对

使用道具 举报

ysr
 楼主| 发表于 2023-1-23 10:44 | 显示全部楼层
本帖最后由 ysr 于 2023-1-23 04:41 编辑

有342组解：49^3=3^2+26^2+342^2
49^3=3^2+78^2+334^2
49^3=3^2+138^2+314^2
49^3=3^2+226^2+258^2
49^3=3^2+258^2+226^2
49^3=3^2+314^2+138^2
49^3=3^2+334^2+78^2
49^3=3^2+342^2+26^2
49^3=6^2+82^2+333^2
49^3=6^2+242^2+243^2
49^3=6^2+243^2+242^2
49^3=6^2+333^2+82^2
49^3=10^2+93^2+330^2
49^3=10^2+195^2+282^2
49^3=10^2+282^2+195^2
49^3=10^2+330^2+93^2
49^3=18^2+19^2+342^2
49^3=18^2+114^2+323^2
49^3=18^2+190^2+285^2
49^3=18^2+285^2+190^2
49^3=18^2+323^2+114^2
49^3=18^2+342^2+19^2
49^3=19^2+18^2+342^2
49^3=19^2+342^2+18^2
49^3=26^2+3^2+342^2
49^3=26^2+78^2+333^2
49^3=26^2+333^2+78^2
49^3=26^2+342^2+3^2
49^3=28^2+63^2+336^2
49^3=28^2+231^2+252^2
49^3=28^2+252^2+231^2
49^3=28^2+336^2+63^2
49^3=30^2+125^2+318^2
49^3=30^2+150^2+307^2
49^3=30^2+307^2+150^2
49^3=30^2+318^2+125^2
49^3=45^2+82^2+330^2
49^3=45^2+190^2+282^2
49^3=45^2+282^2+190^2
49^3=45^2+330^2+82^2
49^3=51^2+118^2+318^2
49^3=51^2+162^2+298^2
49^3=51^2+298^2+162^2
49^3=51^2+318^2+118^2
49^3=54^2+62^2+333^2
49^3=54^2+102^2+323^2
49^3=54^2+237^2+242^2
49^3=54^2+242^2+237^2
49^3=54^2+323^2+102^2
49^3=54^2+333^2+62^2
49^3=62^2+54^2+333^2
49^3=62^2+234^2+243^2
49^3=62^2+243^2+234^2
49^3=62^2+333^2+54^2
49^3=63^2+28^2+336^2
49^3=63^2+224^2+252^2
49^3=63^2+252^2+224^2
49^3=63^2+336^2+28^2
49^3=66^2+138^2+307^2
49^3=66^2+222^2+253^2
49^3=66^2+253^2+222^2
49^3=66^2+307^2+138^2
49^3=78^2+3^2+334^2
49^3=78^2+26^2+333^2
49^3=78^2+179^2+282^2
49^3=78^2+198^2+269^2
49^3=78^2+269^2+198^2
49^3=78^2+282^2+179^2
49^3=78^2+333^2+26^2
49^3=78^2+334^2+3^2
49^3=82^2+6^2+333^2
49^3=82^2+45^2+330^2
49^3=82^2+99^2+318^2
49^3=82^2+162^2+291^2
49^3=82^2+195^2+270^2
49^3=82^2+234^2+237^2
49^3=82^2+237^2+234^2
49^3=82^2+270^2+195^2
49^3=82^2+291^2+162^2
49^3=82^2+318^2+99^2
49^3=82^2+330^2+45^2
49^3=82^2+333^2+6^2
49^3=84^2+168^2+287^2
49^3=84^2+217^2+252^2
49^3=84^2+252^2+217^2
49^3=84^2+287^2+168^2
49^3=93^2+10^2+330^2
49^3=93^2+102^2+314^2
49^3=93^2+190^2+270^2
49^3=93^2+206^2+258^2
49^3=93^2+258^2+206^2
49^3=93^2+270^2+190^2
49^3=93^2+314^2+102^2
49^3=93^2+330^2+10^2
49^3=98^2+147^2+294^2
49^3=98^2+294^2+147^2
49^3=99^2+82^2+318^2
49^3=99^2+138^2+298^2
49^3=99^2+198^2+262^2
49^3=99^2+222^2+242^2
49^3=99^2+242^2+222^2
49^3=99^2+262^2+198^2
49^3=99^2+298^2+138^2
49^3=99^2+318^2+82^2
49^3=102^2+54^2+323^2
49^3=102^2+93^2+314^2
49^3=102^2+114^2+307^2
49^3=102^2+226^2+237^2
49^3=102^2+237^2+226^2
49^3=102^2+307^2+114^2
49^3=102^2+314^2+93^2
49^3=102^2+323^2+54^2
49^3=105^2+168^2+280^2
49^3=105^2+280^2+168^2
49^3=109^2+162^2+282^2
49^3=109^2+198^2+258^2
49^3=109^2+258^2+198^2
49^3=109^2+282^2+162^2
49^3=114^2+18^2+323^2
49^3=114^2+102^2+307^2
49^3=114^2+307^2+102^2
49^3=114^2+323^2+18^2
49^3=118^2+51^2+318^2
49^3=118^2+138^2+291^2
49^3=118^2+150^2+285^2
49^3=118^2+285^2+150^2
49^3=118^2+291^2+138^2
49^3=118^2+318^2+51^2
49^3=125^2+30^2+318^2
49^3=125^2+150^2+282^2
49^3=125^2+282^2+150^2
49^3=125^2+318^2+30^2
49^3=138^2+3^2+314^2
49^3=138^2+66^2+307^2
49^3=138^2+99^2+298^2
49^3=138^2+118^2+291^2
49^3=138^2+162^2+269^2
49^3=138^2+179^2+258^2
49^3=138^2+186^2+253^2
49^3=138^2+206^2+237^2
49^3=138^2+237^2+206^2
49^3=138^2+253^2+186^2
49^3=138^2+258^2+179^2
49^3=138^2+269^2+162^2
49^3=138^2+291^2+118^2
49^3=138^2+298^2+99^2
49^3=138^2+307^2+66^2
49^3=138^2+314^2+3^2
49^3=141^2+198^2+242^2
49^3=141^2+242^2+198^2
49^3=147^2+98^2+294^2
49^3=147^2+294^2+98^2
49^3=150^2+30^2+307^2
49^3=150^2+118^2+285^2
49^3=150^2+125^2+282^2
49^3=150^2+190^2+243^2
49^3=150^2+243^2+190^2
49^3=150^2+282^2+125^2
49^3=150^2+285^2+118^2
49^3=150^2+307^2+30^2
49^3=161^2+168^2+252^2
49^3=161^2+252^2+168^2
49^3=162^2+51^2+298^2
49^3=162^2+82^2+291^2
49^3=162^2+109^2+282^2
49^3=162^2+138^2+269^2
49^3=162^2+269^2+138^2
49^3=162^2+282^2+109^2
49^3=162^2+291^2+82^2
49^3=162^2+298^2+51^2
49^3=168^2+84^2+287^2
49^3=168^2+105^2+280^2
49^3=168^2+161^2+252^2
49^3=168^2+252^2+161^2
49^3=168^2+280^2+105^2
49^3=168^2+287^2+84^2
49^3=179^2+78^2+282^2
49^3=179^2+138^2+258^2
49^3=179^2+258^2+138^2
49^3=179^2+282^2+78^2
49^3=186^2+138^2+253^2
49^3=186^2+253^2+138^2
49^3=190^2+18^2+285^2
49^3=190^2+45^2+282^2
49^3=190^2+93^2+270^2
49^3=190^2+150^2+243^2
49^3=190^2+243^2+150^2
49^3=190^2+270^2+93^2
49^3=190^2+282^2+45^2
49^3=190^2+285^2+18^2
49^3=195^2+10^2+282^2
49^3=195^2+82^2+270^2
49^3=195^2+270^2+82^2
49^3=195^2+282^2+10^2
49^3=198^2+78^2+269^2
49^3=198^2+99^2+262^2
49^3=198^2+109^2+258^2
49^3=198^2+141^2+242^2
49^3=198^2+242^2+141^2
49^3=198^2+258^2+109^2
49^3=198^2+262^2+99^2
49^3=198^2+269^2+78^2
49^3=206^2+93^2+258^2
49^3=206^2+138^2+237^2
49^3=206^2+237^2+138^2
49^3=206^2+258^2+93^2
49^3=217^2+84^2+252^2
49^3=217^2+252^2+84^2
49^3=222^2+66^2+253^2
49^3=222^2+99^2+242^2
49^3=222^2+242^2+99^2
49^3=222^2+253^2+66^2
49^3=224^2+63^2+252^2
49^3=224^2+252^2+63^2
49^3=226^2+3^2+258^2
49^3=226^2+102^2+237^2
49^3=226^2+237^2+102^2
49^3=226^2+258^2+3^2
49^3=231^2+28^2+252^2
49^3=231^2+252^2+28^2
49^3=234^2+62^2+243^2
49^3=234^2+82^2+237^2
49^3=234^2+237^2+82^2
49^3=234^2+243^2+62^2
49^3=237^2+54^2+242^2
49^3=237^2+82^2+234^2
49^3=237^2+102^2+226^2
49^3=237^2+138^2+206^2
49^3=237^2+206^2+138^2
49^3=237^2+226^2+102^2
49^3=237^2+234^2+82^2
49^3=237^2+242^2+54^2
49^3=242^2+6^2+243^2
49^3=242^2+54^2+237^2
49^3=242^2+99^2+222^2
49^3=242^2+141^2+198^2
49^3=242^2+198^2+141^2
49^3=242^2+222^2+99^2
49^3=242^2+237^2+54^2
49^3=242^2+243^2+6^2
49^3=243^2+6^2+242^2
49^3=243^2+62^2+234^2
49^3=243^2+150^2+190^2
49^3=243^2+190^2+150^2
49^3=243^2+234^2+62^2
49^3=243^2+242^2+6^2
49^3=252^2+28^2+231^2
49^3=252^2+63^2+224^2
49^3=252^2+84^2+217^2
49^3=252^2+161^2+168^2
49^3=252^2+168^2+161^2
49^3=252^2+217^2+84^2
49^3=252^2+224^2+63^2
49^3=252^2+231^2+28^2
49^3=253^2+66^2+222^2
49^3=253^2+138^2+186^2
49^3=253^2+186^2+138^2
49^3=253^2+222^2+66^2
49^3=258^2+3^2+226^2
49^3=258^2+93^2+206^2
49^3=258^2+109^2+198^2
49^3=258^2+138^2+179^2
49^3=258^2+179^2+138^2
49^3=258^2+198^2+109^2
49^3=258^2+206^2+93^2
49^3=258^2+226^2+3^2
49^3=262^2+99^2+198^2
49^3=262^2+198^2+99^2
49^3=269^2+78^2+198^2
49^3=269^2+138^2+162^2
49^3=269^2+162^2+138^2
49^3=269^2+198^2+78^2
49^3=270^2+82^2+195^2
49^3=270^2+93^2+190^2
49^3=270^2+190^2+93^2
49^3=270^2+195^2+82^2
49^3=280^2+105^2+168^2
49^3=280^2+168^2+105^2
49^3=282^2+10^2+195^2
49^3=282^2+45^2+190^2
49^3=282^2+78^2+179^2
49^3=282^2+109^2+162^2
49^3=282^2+125^2+150^2
49^3=282^2+150^2+125^2
49^3=282^2+162^2+109^2
49^3=282^2+179^2+78^2
49^3=282^2+190^2+45^2
49^3=282^2+195^2+10^2
49^3=285^2+18^2+190^2
49^3=285^2+118^2+150^2
49^3=285^2+150^2+118^2
49^3=285^2+190^2+18^2
49^3=287^2+84^2+168^2
49^3=287^2+168^2+84^2
49^3=291^2+82^2+162^2
49^3=291^2+118^2+138^2
49^3=291^2+138^2+118^2
49^3=291^2+162^2+82^2
49^3=294^2+98^2+147^2
49^3=294^2+147^2+98^2
49^3=298^2+51^2+162^2
49^3=298^2+99^2+138^2
49^3=298^2+138^2+99^2
49^3=298^2+162^2+51^2
49^3=307^2+30^2+150^2
49^3=307^2+66^2+138^2
49^3=307^2+102^2+114^2
49^3=307^2+114^2+102^2
49^3=307^2+138^2+66^2
49^3=307^2+150^2+30^2
49^3=314^2+3^2+138^2
49^3=314^2+93^2+102^2
49^3=314^2+102^2+93^2
49^3=314^2+138^2+3^2
49^3=318^2+30^2+125^2
49^3=318^2+51^2+118^2
49^3=318^2+82^2+99^2
49^3=318^2+99^2+82^2
49^3=318^2+118^2+51^2
49^3=318^2+125^2+30^2
49^3=323^2+18^2+114^2
49^3=323^2+54^2+102^2
49^3=323^2+102^2+54^2
49^3=323^2+114^2+18^2
49^3=330^2+10^2+93^2
49^3=330^2+45^2+82^2
49^3=330^2+82^2+45^2
49^3=330^2+93^2+10^2
49^3=333^2+6^2+82^2
49^3=333^2+26^2+78^2
49^3=333^2+54^2+62^2
49^3=333^2+62^2+54^2
49^3=333^2+78^2+26^2
49^3=333^2+82^2+6^2
49^3=334^2+3^2+78^2
49^3=334^2+78^2+3^2
49^3=336^2+28^2+63^2
49^3=336^2+63^2+28^2
49^3=342^2+3^2+26^2
49^3=342^2+18^2+19^2
49^3=342^2+19^2+18^2
49^3=342^2+26^2+3^2
完美长方体有12组：/g=343d=125e=267f=244
/g=343d=244e=267f=125
/g=343d=125e=244f=267
/g=343d=267e=244f=125
/g=343d=244e=125f=267
/g=343d=267e=125f=244
/g=343d=348e=373f=365
/g=343d=365e=373f=348
/g=343d=348e=365f=373
/g=343d=373e=365f=348
/g=343d=365e=348f=373
/g=343d=373e=348f=365

咋回事？完美长方体出来了？

有组解：完美长方体有12组：/g=343d=125e=267f=244
/g=343d=244e=267f=125
/g=343d=125e=244f=267
/g=343d=267e=244f=125
/g=343d=244e=125f=267
/g=343d=267e=125f=244
/g=343d=348e=373f=365
/g=343d=365e=373f=348
/g=343d=348e=365f=373
/g=343d=373e=365f=348
/g=343d=365e=348f=373
/g=343d=373e=348f=365
回复 支持 反对

使用道具 举报

下一页 »
12345678910... 19下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies E
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|数学中国 ( 京ICP备05040119号 )

GMT+8, 2025-6-27 11:02 , Processed in 0.086574 second(s), 13 queries .

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表