B．判断longint范围内的数是否为素数（包含求50000以内的素数表）：

procedure getprime;

var

i,j:longint;

p:array[1..50000] of boolean;

[问答题]素数是除了能被1和本身整除，不能被其他整数整除的数。编程求100以内的素数。

[主观题]请补充函数proc()，该函数的功能是判断一个数是否为素数。该数是素数时，函数返回字符串：“yes!”，否则函数返回字符串：“no!”，并在主函数中输出。注意：部分源程序给出如下。请勿改动main()函数和其他函数中的任何内容，仅在函数proc()的横线上填入所编写的若干表达式或语句。试题程序：

[试题]以下 isprime 函数的功能是判断形参 a 是否为素数，是素数，函数返回 1 ，否则返回 0 。请填空int isprime(int a){ int i;for(i=2;i<=a/2;i++)if(a ％ i==0) ( 1 5 ) ;( 1 6 ) ;}

[主观题]以下ispeime函数的功能是判断形参a是否为素数，是素数，函数返回1，否则返回0。请填空。int isprime(int a){int i; for(i=2;i<=a/2;()) if(a%i= =0) return(0); ()；}

[主观题]下列程序的功能是输入一个整数，判断是否是素数，若为素数，则输出1，否则输出0，请填空。main(){ int i, x, y=1; scanf（"%d", &x）; for（i=2; i<=x/2; i++） if{ y=0; break;} printf（"%d＼n", y）;}

[主观题]下列程序的功能是输入一个整数，判断是否是素数，若为素数输出1，否则输出0，请填空。main（）{int i, x, y=1;scanf（"%d", &x）;for（i=2; i<=x/2; i++）if(14){ y=0; break;}printf（"%d＼n", y）;}

[试题]（ 9 ）某人编写如下函数来判断 a 是否为素数，若是，则函数返回 True ；否则返回 FalseF．unction Prime （ a As Integer ） AS BooleanD．im k As Interger,isprime AS BooleanIf a<2 Thenisprime=FalseE．lseisprime=Truek=2D．o While k<a/2 And isprimeIf a Mod k=0 Thenisprime=FalseE．LSEk=k+1E．nd

[问答题] 判断101-200之间有多少个素数，并输出所有素数。

[问答题] 编写一个过程计算并输出区间［100，1000］内所有素数的和（要求判断素数使用过程（函数或子过程）来实现）。调用该过程。（提示：只能被1和自身整除的自然数成为素数）

[试题]某人编写如下函数来判断a是否为素数，若是，则函数返回True；否则返回FalseF．unction Prime（a As Integer）AS BooleanD．im k As Interger,isprime AS BooleanIf a<2 Thenisprime=FalseE．lseisprime=Truek=2D．o While k If a Mod k=0 Thenisprime=FalseE．LSEk=k+1E．nd IFLOOPE．nd Ifprime=isprimeE．nd