- 177 名前:卵の名無しさん mailto:sage [2021/02/22(月) 07:52:30.16 ID:pnUlqGOL.net]
- a1+a2+a3=M
a1×a2×a3=N が自然数解(0<a1<a2<a3)を3組(以上)持つような最小のMを求めよ calc <- function(){ n=3 nmax=10000 M=N=NULL for(a in 1:nmax){ for(b in 1:a){ for(c in 1:b){ M=c(M,a+b+c) N=c(N,a*b*c) if(max(table(M))==n & max(table(N))==n) return(list(M,N)) } } } } calc() 朝飯前に計算が終わらん。
|
|