pascal的问题!!!!!!!!!!

来源：百度知道 编辑：UC知道 时间：2024/05/30 20:33:01
请快一点告诉我！！！！
如果一个数从左边读和从右边读都是同一个数，就称回文数，编程找出所有既是回文数又是素数的三位数。急！！！急！！！急！！！

var
i,j:integer;
b:boolean;
begin
for i:=100 to 999 do
if (i mod 10=i div 100) then
begin
b:=true;
for j:=2 to trunc(sqrt(i)) do
if i mod j=0 then begin b:=false;break;end;
if b then writeln(i);
end;
end.

VAR
A,B,I,J:INTEGER;
X:ARRAY[100..999]OF INTEGER;
BEGIN
FOR I:=100 TO 999 DO
BEGIN
FOR J:=2 TO I-1 DO
IF I MOD J=0 THEN X[I]=1;
IF X[I]=0 THEN
IF I DIV 10=I MOD 10 THEN WRITE(I,' ');
END
END.

program e234
var a,b:integer