pascal源程序：
program ex;
var
i,s:integer;
boo:boolean;
begin
readln(s);
i:=2;
boo:=true;
while iif boo then writeln('Yes.') else writeln('No.');
end.
应该没错，如果编译有错或你在算法上有问题可以问我。
var
n,i,j:integer;
ok:boolean;
begin
readln(n);
for i:=2 to n do
begin
ok:=true;
for j:=2 to trunc(sqrt(i)) do
if i mod j = 0 then begin ok:=false;break; end;
if ok then writeln(i) else continue;
end;
end.
我直接在这里打的,没编译,如果有什么小错误你自己检查下. 【转的，呵呵】
内容全部来源于网络收集，如有侵权，请联系网站删除！
QQ：24596024