100以内的8对孪生质数是多少?(写下数）Pascal语言

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/11/08 15:01:53

var
i,k:integer;
function f(n:integer):boolean;
var
x,y:integer;
begin
f:=false;
for x:=1 to n div 2 do
if n mod x=0 then exit;
f:=true;
end;
begin
for i:=2 to 100 do
if f(i)and f(i+2) then
writeln(i,' ',i+2);
end.
答案：
3 5
5 7
11 13
17 19
29 31
41 43
59 61
71 73

100以内的8对孪生质数是多少?(写下数）Pascal语言用pascal语言求100以内的质数用Pascal语言求出1——1000以内的孪生素数! 求100以内的素数pascal语言 100以内的质数在pascal咋表示? 求100以内的质数（用C语言做）求出100以内的所有勾股数组（pascal,C,Logo语言均可） C语言绝对质数求100以内的绝对质数,绝对质数就是把这两个数位置互换,两个数都是质数,例如13和31 C语言绝对质数求100以内的绝对质数,绝对质数就是把这两个数位置互换,两个数都是质数,例如13和31, 输出100以内的所有孪生素数. 100以内的质数的积是多少? 100以内最大的质数是多少啊?