pascal中求一个整数的素数实在编译不出来了各位编程大虾帮帮忙程序如下：

来源：百度知道编辑：UC知道时间：2024/06/15 11:46:57

program qiusushu;
var
m,n:integer;
procedure fa(a:integer);
var
i,j:integer;
begin
j:=a;
for i:=trunc(j/2) downto 1 do
if (a mod i)=0
then if i<>1
then begin
n:=n+1;
write(a div i,'*');
fa(i);break;
end
else if n<>1 then write
end;
begin
read(m);
fa(m);
if n=0 then write('m=',m,'*1');
end.

var i,m,n:longint;
begin
readln(n);
m:=n;
write(n,'=');
i:=1;
repeat
if n=1 then begin write(1);break;end;
inc(i);
while n mod i = 0 do
begin
write(i);
n:=n div i;
if n<>1 then write('*');
end;
until i>=n;
if i=m then write('*1');
end.

似乎是求整数的约数吧？这个是我自己写的，应该能够看懂吧……
事实上就是穷举，遇到它的约数就mod约数再div约数……

任意输入一个整数,求离它最近的素数用VB编一道题目:求一个指定整数以内的所有素数怎么判断素数编写一个函数该函数的功能是判断一个整数是不是素数，在主函数中调用该函数，输出200以内的所有的素数求所有大于1小于整数m的非素数。用pascal求输入一个整数，再输出它的位数。例如输入1235，输出4 求素数的一个问题程序设计写一个函数,判断一个整数是否素数,在main函数中输入整数,并输出判断结果. 急！！！编写一个C程序：读入十个任意整数，将其存入一个数组中，求出该十个元素中所有素数的和。写一个判素数的函数,在主函数输入一个整数,输出是否素数的信息用C 语言写出一个判素数的函数，在主函数输入一个整数，输出是否素数的信息

pascal中求一个整数的素数 实在编译不出来了 各位编程大虾帮帮忙 程序如下：

pascal中求一个整数的素数实在编译不出来了各位编程大虾帮帮忙程序如下：