读入正整数n，求2到n之间的所有素数。（用定义函数的方法）。用pascal程序

Question

如题所述

Answer 1

program ygb;

function f(x:integer):boolean;
var i:integer;
begin
f:=true;
for i:=2 to x-1 do if x mod i=0 then f:=false;
end;

var i,n:integer;
begin
write('n=');readln(n);
for i:=2 to n do if f(i) then write(n,' ');
end.