请用Free Pascal解答以下3道题.甲、乙、丙分别有磁带36、48、64盒.先由甲把自己的磁带平均分为三份,分给甲、乙各一份,自己留下一份；接着是乙,最后是丙,都按甲的方法处理.变成输出甲、乙、

请用Free Pascal解答以下3道题.甲、乙、丙三人共有24元钱,先由甲分钱给乙、丙二人,所分给得数与各人已有的数相同；接着由乙分给丙、甲,分发同前；再有丙分钱给甲、乙,分发亦同前.经上述 请用Free Pascal解答以下3道题.甲、乙、丙分别有磁带36、48、64盒.先由甲把自己的磁带平均分为三份,分给甲、乙各一份,自己留下一份；接着是乙,最后是丙,都按甲的方法处理.变成输出甲、乙、 请用Free Pascal解答以下3道题.我是一个小菜鸟.1、甲、乙、丙三人共有24元钱,先由甲分钱给乙、丙二人,所分给得数与各人已有的数相同；接着由乙分给丙、甲,分发同前；再有丙分钱给甲、乙, 一道简单的free pascal题目,各位free pascal大师解答一下吧.求2~100中每个数的质因子,输出如下形式：2=23=34=2*2...99=3*3*11100=2*2*5*5请一定是自编,要用我这种水平去做.最好用for循环.并请写上每一步的 Free Pascal 和Pascal的区别?为什么竞赛都用Free Pascal?Free Pascal 和Pascal的区别?为什么竞赛都用Free Pascal? free pascal常见语句 求几道 初学 free pascal free pascal 黑洞6174 用FREE PASCAL的简单的循环语句便一道题求1至500中满足以下条件的所有整数1：用3除余22：用5除余33：用7除余2 如果用free pascal篇写程式 应该怎样写;;请各位大侠指点一下任意输入一个正整数,(0 free pascal怎样产生随机数 请以“I need more free time”为题,用英语写一篇作文拜托各位了 3Q请以“I need more free time”为题,用英语写一篇作文,所写必须包括以下提示：1.why do you need more free time 2.what do you want to in your free ti pascal求N以内能被3,7整除的数的和用free pascal 求一个数（n）以内能被3整除且能被7整除的所有数的和.要源码 查一下错Free Pascal: 有一个三位数,它的各位数字之和的11倍恰好等于它自身,请编程求出这个三位数.我用Free Pascal做的,就是不能运行,帮忙查一下错：var a,b,c,s:integer;begin for s:=100 to 999 do begin 输入一个正整数N,把它分解成质因子相乘的形式.如：36=1×2×2×3×3；用 FREE pascal. 输入一个正整数N,把它分解成质因子相乘的形式.如：36=1×2×2×3×3；用 FREE pascal free pascal用 while 语句计算1—1000之间能同时被3和5整除的整数的和 用free pascal编程有15根火柴,如果规定每次取2根或3根,那么取完这堆火柴共有多少种不同取法?