R语言计算1到100的奇数和偶数和

最新推荐文章于 2024-05-31 15:38:17 发布

dltan

最新推荐文章于 2024-05-31 15:38:17 发布

阅读量2.4w

点赞数 8

分类专栏： R语言

本文链接：https://blog.csdn.net/tandelin/article/details/103702015

版权

R语言专栏收录该内容

77 篇文章 17 订阅

订阅专栏

1到100的奇偶数和

1＋3＋5＋···＋99=﹙1＋99﹚×50÷2=2500
2＋4＋6＋···＋100=﹙2＋100﹚×50÷2=2550

方法一：R语言计算1到100的奇偶数和

i <- 1  #循环计数
sum2 <- 0   #保存用于存储之和sum
sum1 <- 0
while (i <= 100)
{
if (i%%2 == 0){
    sum1 = sum1 + i   #将每个i加入到sum1中
}else{
sum2 = sum2 + i
}    #循环计数量加1
i <- i + 1
}
za2 <- sprintf("R语言偶数之和为：%d",sum1)
za1 <- sprintf("R语言奇数之和为：%d",sum2)
print(za1)
print(za2)

在这里插入图片描述

方法二：R语言计算1到100的奇偶数和

sum <- 0
sum2<-0
for(i in 1:100)
{
 if(i%%2==0){
   print(i)
   sum <- sum +i
}else{
print(i)
sum2 <- sum2 +i
 }
}
print(sum)
print(sum2)

在这里插入图片描述

方法三：R语言计算1到100的奇偶数和

##求奇数和
(1:100)[1:100 %% 2 !=0];
sum((1:100)[1:100 %% 2 !=0])

##求偶数和

(1:100)[1:100 %% 2 ==0];
sum((1:100)[1:100 %% 2 ==0])

在这里插入图片描述

R语言奇数判断

jishu <- function(x){
    ifelse(x%%2 ==0,F,T)
}
jishu(11)
[1] TRUE

在这里插入图片描述

Python计算1到100的结果

在这里插入图片描述

>>>i = 1
>>>sum1 = 0
>>>sum2 = 0
>>>while i <= 100:
    if i % 2 == 0:
        sum1 += i
    else:
        sum2 += i
    i +=1
>>>print("1-100之间偶数和为：%d" % sum1)
>>>print("1-100之间奇数和为：%d" % sum2)
1-100之间偶数和为：2550
1-100之间奇数和为：2500