高校数学の質問スレPart409

>>556
> # 逐次a[10]を探索
> f <- function(a10){
+ X=1+6+7+8+9
+ Y=2+3+4+5+a10
+ X < Y
+ }
> flg=FALSE
> a10=10
> while(flg==FALSE){
+ a10=a10+1
+ flg=f(a10)
+ }
> a10
[1] 18