21/02/19 05:59:09.17 OB1eKa3C.net
"ある数が3の倍数の時3で割り、そうでなければ2を足す
これを1になるまでくりかえす
初めの数字を12とした場合 1になることはない理由を答えなさい
また2020番目の数字を答えなさい
"
a=numeric()
i=1
a[i]=12
while(a[i]!=1 & i<2020){
a[i+1]=ifelse(a[i]%%3,a[i]+2,a[i]%/%3)
i=i+1
}
a[1:50]
a[2020]
21/02/19 05:59:09.17 OB1eKa3C.net
"ある数が3の倍数の時3で割り、そうでなければ2を足す
これを1になるまでくりかえす
初めの数字を12とした場合 1になることはない理由を答えなさい
また2020番目の数字を答えなさい
"
a=numeric()
i=1
a[i]=12
while(a[i]!=1 & i<2020){
a[i+1]=ifelse(a[i]%%3,a[i]+2,a[i]%/%3)
i=i+1
}
a[1:50]
a[2020]