绝对质数
(2008-11-15 18:55:00)
标签:
杂谈 |
分类: PASCAL程序 |
【题目】
【解法一】
procedure zs(j:integer; var bo:boolean);
var i:integer;
procedure jh(var n:integer);
var x,y:integer;
begin
end.
【解法二】
var i,h,x,y:integer;
no,yes:boolean;
procedure zs(j:integer; var bo:boolean);
var i:integer;
begin
bo:=true;
for i:=2 to
trunc(sqrt(j)) do
begin
if j mod i=0 then begin bo:=false; break; end;
end;
end;
begin
for i:= 1 to 9 do
for h:=1 to
9 do
begin
x:=i*10+h;
y:=h*10+i;
zs(x,no);
zs(y,yes);
if (no=true) and (yes=true) then write(x:5);
procedure zs(j:integer; var bo:boolean);
var i:integer;
begin
end.
后一篇:冒泡排序