PASCAL将1,2,3,4,5,6,7,8,9组成一个三位数,必须是素数,回文数
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/06 18:34:22
PASCAL将1,2,3,4,5,6,7,8,9组成一个三位数,必须是素数,回文数
用函数
用函数
程序代码:
program ygb;
{$apptype console} //设置程序为非图形界面,TURBO PASCAL等无需这一行
function ss(x:integer):boolean;
var i:integer;
begin
ss:=false;
for i:=2 to x-1 do
if x mod i=0 then exit;
ss:=true;
end;
var
i,j,n:integer;
begin
for i:=1 to 9 do for j:=1 to 9 do
begin
n:=i*100 + j*10 + i;
if ss(n) then writeln(n);
end;
writeln('Press Enter ...');
readln;
end.
程序运行结果:
131
151
181
191
313
353
373
383
727
757
787
797
919
929
program ygb;
{$apptype console} //设置程序为非图形界面,TURBO PASCAL等无需这一行
function ss(x:integer):boolean;
var i:integer;
begin
ss:=false;
for i:=2 to x-1 do
if x mod i=0 then exit;
ss:=true;
end;
var
i,j,n:integer;
begin
for i:=1 to 9 do for j:=1 to 9 do
begin
n:=i*100 + j*10 + i;
if ss(n) then writeln(n);
end;
writeln('Press Enter ...');
readln;
end.
程序运行结果:
131
151
181
191
313
353
373
383
727
757
787
797
919
929
PASCAL将1,2,3,4,5,6,7,8,9组成一个三位数,必须是素数,回文数
求出所有的既是回文数又是素数的三位数.pascal求大神求解哪里错了?
将1,2,3,4,5,6,7这七个数分成两组,组成一个三位数和一个四位数,并使这两个数的乘积最大,那么这个三位数是___
pascal题回文素数
用2,3,4,5这其中的三个数能组成哪些三位数的素数?
0 1 2 3 4 5 6 7 8 9 用这十个数组成一个三位数加三位数得四位数的式子.
第几个回文数的问题输入一个数n,输出第n个回文数(如1,2,3,4,5,6,7,8,9,11,22,101,505……)
用1、3、5、7、9五个数码组成一个两位数和一个三位数,这两个数的乘积记为A用0、2、4、6、8也组成一个三位数和一个两
pascal 巧妙填数 将1,2,…,9共9个数分成三组,分别组成三个三位数,且使这三个三位数构成 1:2:3的比例
将0、1、2、3、4、5、6、7、8、9十个数字,组成三个三位数,一个一位数.并且使这四数之和为999,要求组成的最大最
0、1、2、3、4、5、6、7、8、9十个数字,从中任取三个数组成不重复的三位数,问共可组成几个这样的三位数
0,1,2,3,4,5,6,7,8,9组成一个三位数加三位数等于四位数的等式