一道Pascal问题，求程序！求用函数解！大神们快帮帮忙啊！急急急！！！！！题目在下面。
如果一个自然数是素数,且它的数字位置经过对换后仍为素数,则称为绝对素数,例如13.试求出所有二位绝对素数....
如果一个自然数是素数,且它的数字位置经过对换后仍为素数,则称为绝对素数,例如13.试求出所有二位绝对素数.
展开
1个回答
展开全部
var i:longint;
function sushu(s:longint):boolean;
var i:longint;
begin
sushu:=true;
for i:=2 to s div 2 do
if s mod i=0 then
sushu:=false;
end;
begin
for i:=10 to 99 do
if sushu(i)and sushu(i mod 10 * 10+i div 10) then
write(i,' ');
end.
function sushu(s:longint):boolean;
var i:longint;
begin
sushu:=true;
for i:=2 to s div 2 do
if s mod i=0 then
sushu:=false;
end;
begin
for i:=10 to 99 do
if sushu(i)and sushu(i mod 10 * 10+i div 10) then
write(i,' ');
end.
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
黄先生
2024-12-26 广告
矩阵切换器就是将一路或多路视音频信号分别传输给一个或者多个显示设备，如两台电脑主机要共用一个显示器，矩阵切换器可以将两台电脑主机上的内容renyi切换到同一个或多个显示器上；迈拓维矩矩阵切换器种类齐全，性价比高，支持多种控制方式，为工程商采...
点击进入详情页
本回答由黄先生提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
