求100以内的素数pascal语言

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/31 01:09:45
求100以内的素数pascal语言求100以内的素数pascal语言求100以内的素数pascal语言Programex;Vari:Byte;Functionf(x:Byte):Boolean;Var

求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.