B.判断longint范围内的数是否为素数（包含求50000以内的素数表）：procedure getprime;var i,j:long

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

procedure getprime;

var

i,j:longint;

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