作业帮 > 综合 > 作业

pascal求N以内能被3,7整除的数的和

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/10/06 15:05:29
pascal求N以内能被3,7整除的数的和
用free pascal 求一个数(n)以内能被3整除且能被7整除的所有数的和.要源码
program ex;
var
n,i:integer;//s是输入的数,i是循环变量
s:longint;//统计和的变量
begin
readln(N);//读入n
s:=0;//s赋初值
for i:=21 to n do//循环
if (i mod 21=0) then s:=s+i;//如果循环变量除以3*7的余数为0,那么s就累加.
writeln(s);//循环过后,输出统计变量s
END.