求100以内的素数pascal语言

来源:学生作业帮助网 编辑:作业帮 时间:2024/07/06 14:26:44
求100以内的素数pascal语言
x){OZjye s^_bEMR> l5-(?(1W!K,әVN%1Ҽ<4 S~~Njb\d]Nyq+[")ŅE%%iP =E VF ! .`A4 L[<`sS\+2K 楠1:-iË2KR52u5$ف\

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