如何用free pascal输出200以内的3的倍数和,5的倍数和,7的倍数和?
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/09/25 16:38:59
如何用free pascal输出200以内的3的倍数和,5的倍数和,7的倍数和?
如题
如题
var sum3,sum5,sum7,i:longint;
begin
for i:=1 to 200 do
begin
if(i mod 3=0)then inc(sum3,i);
if(i mod 5=0)then inc(sum5,i);
if(i mod 7=0)then inc(sum7,i);
end;
writeln(sum3,' ',sum5,' ',sum7);
end.
再问: 看不懂哎,sum是什么意思?
begin
for i:=1 to 200 do
begin
if(i mod 3=0)then inc(sum3,i);
if(i mod 5=0)then inc(sum5,i);
if(i mod 7=0)then inc(sum7,i);
end;
writeln(sum3,' ',sum5,' ',sum7);
end.
再问: 看不懂哎,sum是什么意思?
30以内2和3的倍数
100以内2和3和5的倍数
一百以内既是2的倍数又是3和5的倍数
100以内(包括100)3的倍数和5的倍数一共有几个
写出100以内哪些数既是2的倍数,又是3和5的倍数
100以内一个3的倍数和一个5的倍数相加的和有几种?(100以内包括100)
2、5的倍数和3的倍数为什么不一样
98以内最小的5的倍数和最大的5的倍数是?
50以内,8的倍数和20以内6和4的倍数.,即使4的倍数有是6的倍数 30以内即使2又是3的倍数
算出100以内7的倍数的和 简算
50以内6和9的倍数50以内既是6的倍数又是9的倍数
200以内3的倍数有( ),200以内5 的倍数有( ),200以内3和5的公倍数有( )