کد Prime Generation - تولید عدد اول در پاسکال

[Siavash]

 

کد:

1  
2  PROGRAM prime_generation;
3  
4  VAR i,j,k,n:integer;
5  
6  BEGIN
7    writeln('Enter any number');
8    readln(n);
9    FOR i:=2 TO n DO
10   BEGIN
11     k:=0;
12     FOR j:=1 TO n DO
13     IF i MOD j =0 THEN k:=k+1;
14     IF k<=2 THEN writeln(i);
15   END;
16 END.
17 
18 
19 
20