pascal求N以内能被3,7整除的数的和用free pascal 求一个数（n）以内能被3整除且能被7整除的所有数的和.要源码

来源：学生作业帮助网 编辑：作业帮 时间：2024/11/09 00:31:33

pascal求N以内能被3,7整除的数的和用free pascal 求一个数（n）以内能被3整除且能被7整除的所有数的和.要源码
pascal求N以内能被3,7整除的数的和
用free pascal 求一个数（n）以内能被3整除且能被7整除的所有数的和.要源码

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.

pascal求N以内能被3,7整除的数的和用free pascal 求一个数（n）以内能被3整除且能被7整除的所有数的和.要源码 编程求100以内能被3整除的但不能被7整除的数 编程：输出100 以内能被7 整除的数. 500以内能被3整除的数有哪些? 求40000以内能同时被3和8整除的数的和 求10000以内能被13整除,且其中至少含2个7的数! Free Pascal编程时有一些题,1.判断一个数是不是质数2.求200以内能被3,5,7同时整除的数,输出3.判断一个数是不是完全因子数（例如：6,它有约数1、2、3、6,除去它本身6外,其余3个数相加,1+2+3＝6.28, 10000以内能被3整除,但不能被5整除的数有几个? 如何用c语言计算1000以内能被3整除不能被7整除并含有5的数 用循环语句输出1000以内能被3或7整除但不能同时整除的数 java 编程,求1000以内能被17整除数的和 求一个C语言程序：1000以内能被13整除的数 求1000到8000以内能被3和7整除的整数和是多少? 求100以内能被3整除,或能被4整除,且各位数为6 的所有正整数的个数 Description 输入正整数n,试编程输出n以内能被5和7整除的数.(不包括n)Input输入一个整整数n.Output输出n以内能被5和7整除的数.以空格间隔.Sample Input100Sample Output35 70 c语言编程,用循环,求100以内能被5整除但不能被7整除的数及其和 程序题求出1-200以内能被7整除的数的平方和? 100以内能被5整除的数有几个?能被7整除的有几个?