问题描述： 怎样用vb编程求1000以内回文数又是素数的自然数 1个回答 分类：综合 2014-10-04 问题解答： 我来补答 首先2,4位没1位又不算所以只要搜索3位就可以了 begin for i:=100 to 999 do if (i mod 10)=(i div 100) then {判断回文数｝ begin ｛判断素数｝ j:=3; repeat t:=1; if (i mod j)=0 then t:=0; j:=j+1; until((t=0)or(j>sqrt(i))); if t=1 then writeln(i); end; end. 展开全文阅读
