求前100个素数,如果N素数则它的逆数也不素数.例97是,79也是
汗……楼上的太有才了!constn=5;varx:array[1..10]ofinteger;y:array[1..10]ofBoolean;procedureoutit;vari:integer;beginfori:=1tondowrite(x[i]);writeln;end;proceduresearch(v:integer);vari:integer;beginifv>nthenbeginoutit;exit;end;fori:=1tondoify[i]thenbeginx[v]:=i;y[i]:=false;search(v+1);y[i]:=true;end;end;beginfillchar(y,sizeof(y),true);search(1);end.说明：使用非递归的好处是节约内存,当一些题目对内存消耗较大时,建议使用非递归方式；但使用递归方式在程序运行时间上要好一些,因为在每个节点扩展时,递归方式少一个范围超界判断.[/i][/i][/i][/i]
举一反三
- 是否对于任意素数p,n=2^p-1,若n也为素数,则2^n-1也是素数
- Erarosthenes法求100以内的所有素数，按从小到大依次排列。所谓Erarosthenes法：1不是素数，除去它；2是素数，则它的倍数不是素数，去掉它们；3是素数，则它的倍数不是素数，去掉它们。依次类推，直到所给定的数。
- 100以内的素数。题目内容：求100以内的全部素数，每行输出10个。素数就是只能被1和自身整除的正整数，1不是素数，2是素数。要求定义和调用函数prime(m)判断m是否为素数，当m为素数时返回1，否则返回0。 输入格式：没有输入数据。 输出格式：输出100以内的素数。 提示：可使用输出语句printf("%6d",m);来控制素数之间的输出间隔。 输出样例： 2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97
- 一个自然数是素数，且它的数字位置经过任意对换后仍为素数，则称为绝对素数，例如13就是一个绝对素数。试求所有两位绝对素数。
- 97是素数
内容
- 0
求100以内的素数。
- 1
求100之内的素数。
- 2
【判断题】97是素数.
- 3
97是一个素数。
- 4
编写程序，求100～200中的所有素数，输出这些素数，每输出5个数换下一行，左对齐。输出其中最大素数及素数的个数。