金蝉素数用PASCAL怎么编啊？

一、金蝉素数用PASCAL怎么编啊？

三位和四位应该从100到9999

var i:100..9999;

s:string;

function p(n:string):boolean; //判断是否为质数

var x,i:word;

begin

val(n,x,i);

for i:=trunc(sqrt(x)) downto 2 do

if x mod i=0 then exit(false);

p:=true;

end;

begin

for i:=100 to 9999 do

begin

str(i,s);

if p(copy(s,2,length(s)))and p(copy(s,3,length(s)))and p(copy(s,1,length(s)-1))and p(copy(s,1,length(s)-2)) then writeln(s);

end;

end.

二、蝉 （知了]怎么画

蝉

\ /

\ o ^ o /

\ ( ) /

____________(%%%%%%%)____________

( / / )%%%%%%%( \ \ )

(___/___/__/ \__\___\___)

( / /(%%%%%%%)\ \ )

(__/___/ (%%%%%%%) \___\__)

/( )\

/ (%%%%%) \

(%%%)

!

\ /

\ o ^ o /

\ ( ) /

____________(%%%%%%%)____________

( / / )%%%%%%%( \ \ )

(___/___/__/ \__\___\___)

( / /(%%%%%%%)\ \ )

(__/___/ (%%%%%%%) \___\__)

/( )\

/ (%%%%%) \

(%%%)

!

三、金蝉怎么摆放

貔貅乃是风水镇宅，化煞转祸为祥之神兽，最擅长化解五黄煞、天斩煞、穿心煞、镰刀煞、屋角煞、刀煞、白虎煞、阴气煞、二黑煞。

所以貔貅具有避邪镇宅，化煞及旺财三大功用。

1/不要头冲正门，因为正门有门神或财神，貔貅无权。

2/不要冲镜子，镜子会产生光煞。

3/不要对着床，这样会对自己不利。

供养禁忌：

1/香炉里不能放沙子泥土，要放姜米，珍珠米，黑米。

2/供奉果品中不能有梨，草莓（谐音不好）。其他不忌。

3/女人有身体状况时严禁给貔貅上香，抚摩（貔貅忌光煞，血煞，胎煞）。

4/不要经常打扫貔貅，每年只有四次打扫时间都是以农历计算。

5/不的随意搬动貔貅抚摩貔貅嘴及头部，搬动时用红绸布包头部再搬。

————————————————————————

元宝是中国古代的高面值货币，具有极高的价值。华夏传统民俗及风水学均认为，室内摆放元宝，可以助益主人事业顺遂。家有香炉聚宝盆，可放在里面聚财气。求财神关公者，求一对元宝放其旁边，财源最是茂盛。也可放在貔貅前增加貔貅的旺财能力。

————————————————————————————

如果是三脚的金蟾，因其有吐钱的本事，故而成为招财的本领，含有钱的金蟾在摆放时就嘴冲屋内（吐财），不含钱的金蟾就冲屋外（吸财）。如果是大金蟾，摆放大金蟾时，它的身下一定要有一个圆盆，盆沿比蟾脚略高一点，盆的颜色也一定不能是白色、材质铜、石、钢。

金蟾摆放方法：

金蟾分为嘴含钱和不含钱两种。嘴含钱，其摆放时，要头向匍内，公司内或住宅内，不宜向匍门、公司门、屋门，否则所吐之钱皆吐出屋外，不能催旺财气；对于嘴不含钱的金蟾，则相反，头要朝向匍门、公司门、屋门，为吸财入库，注意头朝向门外时不能正对着大门，应该稍微侧一点，以免犯着门神。

金蟾摆放时间和方位

凡开光的金蟾都注重第一次的摆放使用时间。取早上七点之九点间的精华，此时辰为一天中最有利的一个阶段，又俗为龙抬头的时辰。吉祥物经过特殊处理，则利于选在一个良时使用，特此建议大家在“辰时”完善自己的吉祥物配挂及摆放。金蟾佩戴或者摆放时要怀虔诚的态度，沐面洗手，将摆放的台面清洗干净，同时心里默念需要祈求的愿望，即可佩戴及摆放。

金蟾在含钱和不含钱的摆放大方向外，最好根据主人的八字五行找出其财位，并且将金蟾摆放在财位，则效果最佳！

——————————————————————------

广州点击网解答