func <- function(n){if(n<=0){print('要求输入的是正整数')} else{if(n%%2==1){n=3n+1;print(n);while(n%%2==0){n=n/2;print(n)}};if(n==1) break}}
Error: unexpected symbol in "func <- function(n){if(n<=0){print('要求输入的是正整数')} else{if(n%%2==1){n=3n"
#T5
func <- function(n){if(n<=0){print('要求输入的是正整数')} else{if(n%%2==1){n=3n+1;print(n);while(n%%2==0){n=n/2;print(n)}}if(n==1) break}}
Error: unexpected symbol in "func <- function(n){if(n<=0){print('要求输入的是正整数')} else{if(n%%2==1){n=3n"