(UBASIC)
10'簇底漆
20摄氏度=1
30输入“end#”;我
40,对于N=3至L步骤2
50 S=整数(平方英尺(N))
A=3至S步骤2为60
70 B=不适用
80如果int(B)*A=N,则取消:转到170
90下一个A
100摄氏度=摄氏度+1
110 E=N/4:E=int(E):R=N-(4*E)
120如果R=1,则打印N;:C1=C1+1:T1=T1+1:打印T1
130,如果R=3,则T1=0
140如果R=3,则打印“”;N、 :C3=C3+1:T2=T2+1:打印T2
150,如果R=1,则T2=0
160如果T1>10或T2>10,则停止
170下一个
180打印“总素数=”;C、 :打印“A型”;C1;“B型”;C3类
|