paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 21:30:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

1 is NOT a prime

Browse Source
This commit is contained in:
pierre 2000-04-10 08:34:25 +00:00
parent 8c686201c5
commit 9ec0c6363d
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
install/demo/text/eratos.pp
View File

@ -27,7 +27,7 @@ program eratosthenes;
begin begin
a[1]:=false; a[1]:=false;
for i:=1 to max do for i:=2 to max do
a[i]:=true; a[i]:=true;
for i:=2 to max div 2 do for i:=2 to max div 2 do
if a[i] then if a[i] then
@ -55,7 +55,10 @@ program eratosthenes;
{ {
$Log$ $Log$
Revision 1.1 2000-03-09 02:49:09 alex Revision 1.2 2000-04-10 08:34:25 pierre
1 is NOT a prime
Revision 1.1 2000/03/09 02:49:09 alex
moved files moved files
Revision 1.5 1998/09/11 10:55:21 peter Revision 1.5 1998/09/11 10:55:21 peter