free pascal用 while 语句计算1—1000之间能同时被3和5整除的整数的和

来源：学生作业帮编辑：灵鹊做题网作业帮分类：综合作业时间：2024/05/03 06:01:48

program calc;
var
total: dword;
i: integer;

begin
total := 0;

for i:=1 to 1000 do
if((i mod 15) = 0)then
total += i;
writeln('Total: ', total);
end.
再问：能否用while语句
再答： program calc;

var
total: dword;
i: integer;

begin
total := 0;
i := 1;
while(i

free pascal用 while 语句计算1—1000之间能同时被3和5整除的整数的和计算1—1000之间能同时被3和5整除的整数的和.pascal语言如何用脚本语言计算1—1000之间能同时被3和5整除的最小整数 C#用while计算1到100之间的能被2或者3整除的整数的和采用while语句,输出100~200之间所有不能被3和7同时整除的整数编写一个Java应用程序,使用while循环计算1-1000之间能同时被7和17整除的整数之和. 用while 语句编程计算1到1000间能被3和7同时整除的数的和如何编写Java程序计算1~1000之间能被3和7同时整除的整数之和 1、试分别用三种循环语句编写程序,求出1-100之间能被3和7同时整除的整数计算1-1000之间能同时被3和5整除的所有数的和.C语言用continue语句输出100到200之间能同时被3和5整除的数用javascript while语句输出1-100之间能被3整除的所有数字