1樓：匿名使用者
窮舉+判斷素數+判斷倒序數是否為質數+數碼和是否符合條件+數碼積是否符合條件=輸出
2樓：匿名使用者
窮舉1到160間的素數，如果符合以上要求則輸出。
3樓：
begin
k:=0;
for i:=2 to 160 do begin
ok:=true;
for j:=2 to trunc(sqrt(i)) do begin
if i mod j=0 then ok:=false;
end;
if ok then k:=k+1;a[k]:=i;
end;
for i:=1 to k do begin
ok:=true;
ge:=i mod 10;
shi:=i div 10-i div 100*10;
bai:=i div 100;
x:=ge*100+shi*10+bai;
y:=ge+shi+bai;
z:=ge*shi*bai;
if (x=1)and(y=1)and(z=1) then begin
writeln(a[i]:2);
end else begin
for j:=2 to trunc(sqrt(x)) do begin
if x mod j=0 then ok:=false;
for n:=2 to trunc(sqrt(y)) do begin
if y mod n=0 then ok:=false;
for m:=2 to trunc(sqrt(z)) do begin
if z mod m=0 then ok:=false;
end;
end;
end;
end;
if ok then writeln(a[i]:2);
end;
end.
自己改一下吧
求一道幾何題，一道幾何題求角度
徐少 40 解析 設 pam x pcm y 設 apm m cpm n 顯然，m n 110 由角元塞瓦定理可得 sin30 sin30 sin20 siny sinx sin30 1故，sinx siny sin30 sin20.由正弦定理得，pc pa sinx siny.同高等底 s pam...
pascal語言 一道題目
我來試試 varn,a,b,s longint begin readln n s 1 乘積初始化 repeat repeat a n mod 10 取個位數字 s s a 累乘各位數字 b n div 10 取剩餘多位數n b 替換原多位數 until b 0 write s,n s 以新生成的數字...
求一道數學題，一道小學數學題 求答案
西域牛仔王 存在反函式，說明函式在 1，2 上單調，函式對稱軸為 x a，只要區間不包含對稱軸即可，因此 a 1 或 a 2 甲 乙 丙三人用油漆合刷一棟小樓的門窗。甲 乙合刷5天完成了1？3,接著乙 丙合刷2天完成了餘下工作1 4,最後甲 丙兩人合刷了5天才完工。整個過程的勞務費是600元，乙應分...