用PASCAL编程:1至100的素数

会的写出来,不会的别说废话!...

2026年09月24日 15:08

有3个网友回答

网友（1）：

Program xxx(input,output);
var
n,i:integer;
f:boolean;

begin

for n:=1 to 100 do
begin
f:=true;
for i:=2 to trunc(sqrt(n)) do
if (n mod i =0) then begin f:=false;break;end;
if f then writeln(n:4);
end;

end.

网友（2）：

......
READ(A,B)
BEGIN
A:=1;
B:=100;
S:=100
WRITEEN(A,B)
前面的“.....”你应该会写

网友（3）：

就楼主这态度会也不给你写