delphi编写程序求1+2+3+…+100之间的偶数和（不包含50）

如题所述

第1个回答 2022-12-16

以下代码是在 Delphi 窗体应用程序中进行编写：
var
i, sum: Integer;
begin
sum := 0;
for i := 1 to 100 do
begin
if (i = 50) then
Continue;
if (i mod 2 = 0) then
sum := sum + i;
end;
ShowMessage(IntToStr(sum));
end;
上面的代码会在循环内部检查每个数字是否为偶数，如果是就将其加入到sum变量中。如果当前数字为50，就使用Continue语句跳过本次循环。最后，使用ShowMessage函数显示结果。

相似回答

用delphi编写一个1+2+3+……+100的程序答：begin result := 0;for i := 1 to 100 do result := result + i;end;

编写程序求1+2+3+……100 的和,奇数和以及偶数和。(至少用三种方法...答：int main(int argc, char *argv[]){ int i,sum1=0,sum2=0;for (i=1;i<=100;i++){ if (i%2==0)sum2+=i;else sum1+=i;} printf("1～n中所有奇数之和为：%d ，所有偶数之和为：%d\n",sum1,sum2);return 0;} 将for循环改成while和do while循环，可以算另外两种方法了，...

编写一个函数R(n),其功能是计算1+2+3+...+n的和,并且返回这个和。答：int R(int n){ int nSum = 0;int i;for(i = 1; i <= n; i++)nSum += i;return nSum;} main(){ int n;int nSum;while(1){ printf("请输入n的值(1 -- 1000)：");scanf("%d", &n);if(n < 1 || n > 1000)printf("输入的数值超出范围，请重新输入\n");else b...

...1+2)+(1+2+3)+...+(1+2+3+...+100)的值 ,用delphi程序答：楼上的写得不对啊应该有两个循环。function SumXXX:integer;var i,k:integer;begin Result:=0;for i:=1 to 100 do begin for k:=1 to i do Result:=Result+k;end;end;在按钮的Click事件中 edit1.text:=inttostr(sumxxx);

编写程序 1、求1到100间的偶数之和。要求用二种以上方法编写。 2输入...答：java实现的程序1：public class Testfornnn { //求1-100的偶数之和 public static void main(String[] args) { //方法1:int sum=0;int sum1=0;for(int i=0;i<=100;i++){ if(i%2==0)sum=sum+i;} System.out.println("sum==="+sum);//方法2：for(int s=0;s<=100;s=s+...

大家正在搜

编写程序求1到100的偶数和编写程序求1到100的和编写程序求三个数的和编写程序求1到100的合并输出编程求1000之内的所有完数编写程序1加到100之和编写程序求两个数和编写程序求三个数中最大数用c语言编写的求和代码程序