UC知道初一paseal
来源：百度知道 编辑：UC知道 时间：2024/06/02 17:32:28
一个三位数，各位数字互不相同，十位数字比个位、百位数字之和还要大，且十位、百位数字之和不是质数。编程找出所有符合条件的三位数，按从最大到最小的顺序输出。PASCAL
program sws;
var a,b,c,d,i,j:integer;
bz:boolean;
begin
for i:=999 to 100 do
begin
a:=i mod 10;
b:=i div 10 mod 10;
c:=i div 100;
if (a<>b) and (b<>c) and (a<>c) and (b>a+c) then
begin
d:=b+c;
bz:=true;
for j:=2 to d div 2`do
if d mod j =0 then bz:=false;
if bz then writeln(i);
end;
end;
end.
const ss=[2,3,5,7,11,13,17];
var a,b,c:0..9;
begin
for a:=9 downto 1 do
for c:=9 downto 1 do
if a<>c then for b:=9 downto a+c+1 do
if not((b+c) in ss) then write(abc,' ');
end.