如何用free pascal输出200以内的3的倍数和,5的倍数和,7的倍数和?如题

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/10 12:23:00
如何用free pascal输出200以内的3的倍数和,5的倍数和,7的倍数和?如题

如何用free pascal输出200以内的3的倍数和,5的倍数和,7的倍数和?如题
如何用free pascal输出200以内的3的倍数和,5的倍数和,7的倍数和?
如题

如何用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.

如何用free pascal输出200以内的3的倍数和,5的倍数和,7的倍数和?如题 如何用pascal计算20个数中的最大值和最小值天啦,L1那么长!还有,要用for语句,是free pascal啊 L2的好像可以,试试哈 free pascal常见语句 求几道 初学 free pascal free pascal 黑洞6174 在free pascal如何判断两个数a,b,输出较大数的平方值 用free pascal输入三角形三条边的值,能构成三角形,输出其面积后结束,不能输出no free pascal基础编程描述输入两个正实数a,b(a1),输出a的b次幂、以a为底b的对数.输入输入两个正实数a,b输出输出a的b次幂、以a为底b的对数(每个数据一行,输出场宽为12,保留4位小数)样例输入 Free Pascal编程时有一些题,1.判断一个数是不是质数2.求200以内能被3,5,7同时整除的数,输出3.判断一个数是不是完全因子数(例如:6,它有约数1、2、3、6,除去它本身6外,其余3个数相加,1+2+3=6.28, 如何用PASCAL编写数独程序 SUDOKU要求用PASCAL语言(如果给PASCAL的代码给加分,如果实在给不出可以给C的代码,但是不加分).要求,0.01秒之内算出任何9*9的矩阵,只输出一种情况即可,代码长度不限. free pascal怎样产生随机数 如何用MATLAB输出F分布数值? 如何用simulink输出e^(-x)图形 Free Pascal问题 任意输入一个四位数,输出的结果是其各个数位上的数字之和 一道Free Pascal的题目求100~1000之间能被7整除的数,每行输出10个. free pascal求解输出圆周率小数点后1000000 位本题目限制代码长度,最大长度为:4096字节 用 free pascal 编写程序,输出一列图形(字母金字塔) a a b a b c …… Free Pascal 和Pascal的区别?为什么竞赛都用Free Pascal?Free Pascal 和Pascal的区别?为什么竞赛都用Free Pascal?