用pascal编求出1—100的5的倍数或7的倍数的和

来源：学生作业帮助网 编辑：作业帮 时间：2024/11/29 19:19:38
用pascal编求出1—100的5的倍数或7的倍数的和
xR[OA+@BYeI.Y6JaEPۢRnA)R\] Rvw;ߙIƌr?ɧ1=aCǁ_r7 <4]bL; -6s1*^PK"/NgV5z%v2b7OS= uI f.4o+BR>Wf@%\6iLDݟ4iGmI"L>1ǐ AV9EȤm2,wӪ=@1l/_b* ,*+6*^YGQB9h)Q\rF8 FHDdv d A1ƕݳ°%:/'RI^0h,J q=pߧûiќ}Ý^C7_.#2¿YFN*k$*dLRUke YP!9~n,k5f˘ۛyIueo`Pw A~{yۡ(r5Oޕm2.xZ1Tw..<>wBM=o

用pascal编求出1—100的5的倍数或7的倍数的和
用pascal编求出1—100的5的倍数或7的倍数的和

用pascal编求出1—100的5的倍数或7的倍数的和
很多种方法,在下列举3种,一种for循环做,一种while循环做,还有一种repeat循环做,因为题目要求是5或7的倍数,那么我就都写成是5的倍数,完了后楼主自己把5改成7就行了,代码如下：
//1 for循环
var
i,ans:longint;
begin
ans:=0;
for i:=1 to 100 do
if i mod 5=0 then ans:=ans+i;
writeln(ans);
end.
//2 while循环
var
i,ans:longint;
begin
i:=0;ans:=0;
while i100;
writeln(ans);
end.

var i,s:longint;
begin
for i:=1 to 100 do
if (i mod 5=0)or(i mod 7=0) then s:=s+i;
writeln(s);
end.
标准程序，输出的是1-100中5的倍数，以及7的倍数的和
如果还有不懂或者我回答的细节方面没注意，来私聊找我，非常愿意解答

var i,s,t:integer;
begin
for i:=1 to 100 do
if i mod 5{7}= 0 then inc(s,i);{五或七自定}
write(s);
readln
end.

用pascal编求出1—100的5的倍数或7的倍数的和 给出一个整数n,其中n小于等于10000请求出1~n中,是2的倍数,或者是3的倍数,或者是5的倍数的数的总和用pascal做 pascal给出一个整数n,其中n小于等于maxlongint请求出1~n中,是2的倍数,或者是3的倍数,或者是5的倍数,算出总和,答案有可能超出longint pascal关于因式分解的有关问题用pascal语言编出一个程序输入：100输出：2*2*5*5急用! 用Pascal语言求出1——1000以内的孪生素数! 用PASCAL编程序1.编写一函数,求出实数的小数部分位数.例如,实数3.14有2位小数；68.6634有4位小数2.编写一函数,求出N!的末尾含有多少个0 编一个程序,用for循环语句求出1到100之间的奇数之和. pascal输出1到500之间所有既是7的倍数,又是偶数的数字 pascal试求出1-10000以内所有0以内的素数的倍数,重复的只算一个,求它们的和是所有10以内的.打错了 有一分数序列:2/1,3/2,5/3,8/5,13/8,21/13...求出这个数列的前20项之和（用pascal解题） pascal:一个6位数的2,3,4,5,6倍仍然是6位数,而且它们都由原数的6个数字组成,这个数是多少?祝开心~我要的是怎么用pascal编!开心~ pascal的蛇形矩阵,设有一个n*n的矩阵（0＜n＜50）用pascal语言怎么编? 如何用free pascal输出200以内的3的倍数和,5的倍数和,7的倍数和?如题 如何编程“一个正整数与3的和是5的倍数,与3的差是6的倍数,编程序求出符合此条件的最小正整数” 编一个随机产生一个100以内的四则运算题,要求先输出这个四则运算的式子,这个四则用free Pascal PASCAL求出100以内的全部素数,并按每行五个数显示 Free Pascal 和Pascal的区别?为什么竞赛都用Free Pascal?Free Pascal 和Pascal的区别?为什么竞赛都用Free Pascal? 一道简单的free pascal题目,各位free pascal大师解答一下吧.求2~100中每个数的质因子,输出如下形式：2=23=34=2*2...99=3*3*11100=2*2*5*5请一定是自编,要用我这种水平去做.最好用for循环.并请写上每一步的