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

来源：学生作业帮助网编辑：六六作业网时间：2024/12/29 01:27:50

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

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