Question

编程（pascal）

一个三位数，各位数字各不相同，十位数字比百、个位之和还要大，且十位、百位的和不是质数。编程找出所有符合条件的三位数。问题补充：

1.不能手酸后直接答应结果
2质数=素数

Answer 1

var i,j,n:integer;
a:array[1..3] of integer;
f:boolean;
begin
for i:=100 to 999 do
begin
n:=i;
j:=1;
while n<>0 do
begin
a[j]:=n mod 10;
j:=j+1;
n:=n div 10;
end;
if (a[2]>a[1]+a[3]) then
begin
f:=true;
for j:=2 to trunc(sqrt(a[1]+a[2])) do
if (a[1]+a[2]) mod j=0 then begin f:=false;break; end;
if not f then writeln(i);
end;
end;
end.