求100以内的素数pascal语言

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/27 18:20:58
求100以内的素数pascal语言

求100以内的素数pascal语言
求100以内的素数pascal语言

求100以内的素数pascal语言
Program ex;
Var
i:Byte;
Function f(x:Byte):Boolean;
Var
m,i:Byte;
Begin
m := Trunc(sqrt(x));
f := True;
For i:=2 To m Do
If x mod i = 0 Then Begin
f := false; Exit;
End;
End;
Begin
For i:=2 To 100 Do If f(i) Then Write(i,' ');
End.