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

来源：学生作业帮编辑：神马作文网作业帮分类：综合作业时间：2024/11/06 08:29:21

很多种方法,在下列举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.

在1到100的自然数中,是5的倍数或7的倍数的数有多少个? pascal输出1到500之间所有既是7的倍数,又是偶数的数字求出100以内,是9的倍数,又是4的倍数的所有数的和? 求出100以内,即使9的倍数,又是4的倍数的所有数的和. 2的倍数：3囗、5的倍数：7囗、3的倍数：1囗4、2和3的倍数：4囗囗如何编程“一个正整数与3的和是5的倍数,与3的差是6的倍数,编程序求出符合此条件的最小正整数” 分别求1--100之间3的倍数和7的倍数的和 vb编程n以内5或7的倍数之和,编程统计1~n之内是3的倍数或7的倍数的个数编程求200到300内5的倍数或7的倍数之和(一个数如果同时是5和7的倍数,只能加一次) 求出100以内,既是7的倍数,又是6的倍数的所有数的积 2、5的倍数和3的倍数为什么不一样 1到100的因数和倍数