free pascal任给一个自然数n,求出这个自然数不同因数的个数.如n:=6时,因为1.2.3.6这四个数均为6的因数,故输出total=4.请要自己编的,再加上注释,一定得是自编!

PASCAL试题急!任给一个自然数n(n free pascal问题问题共有三题,我是新手,1.输入一个自然数n（n free pascal任给一个自然数n,求出这个自然数不同因数的个数.如n:=6时,因为1.2.3.6这四个数均为6的因数,故输出total=4.请要自己编的,再加上注释,一定得是自编! 用Free Pascal 做 求两个正整数的最大公约数1.求两个正整数的最大公约数2.任给一个自然数你,求出这个自然数的不同因数的个数.例如n=6时,因为1,2,3,6这4个数均是6的因数,故输出total=4.3.输入年, 数字平方和 pascal给出一个自然数N（1 用Free Pascal求任意自然数n的m次幂n的m次幂正确还另有追分 求Free Pascal程序问题如下：第一行输入一个正整数n（1 N 的倍数 pascal语言写一个程序,对于给定的一个自然数N（0 free pascal定义一个函数,输出2到n之间的全部完全数(一行一个数) 完全数：因子之和等于它本身的自然数,输入：7输出：6希望过程能简短些, Pascal语言某自然数N(1 大大多的题目(PASCAL语言)1．给出一个自然数N（1 free pascal 打印一个n*n的数字螺旋方阵.打印一个n*n的数字螺旋方阵.这个数字方阵的特点是：以左上角1开始向下,数字以外圈向里按自然数顺序转圈递增,一直到中心位置的n2为止.例如n =3:1 8 72 9 free pascal 高精度计算谁有讲解给一下 pascal语言编程问题（free pascal求1—N中的素数的个数.(1 Nocomachns定理.用free pascal Description Nocomachns定理.任何一个n的三次方一定可以表示成n个连续的奇数和.输入:n(n 任何一个大于1的自然数n,总可以拆分成若干个小于n的自然数之和. 自然数的拆分问题 用pascal解决 pascal 二维数组编程输出如下所示的“ 蛇形数字三角形”.要求：①输入一个自然数n(n 给出一个整数n,其中n小于等于1000.请求出1~n中所有的素数的个数free pascal 回答,