کد Prime Check - یافتن عدد اول در پاسکال

[Siavash]

 

کد:

1  
2  PROGRAM prime_check;
3  
4  VAR n,i,s:integer;
5   flag:boolean;
6  
7  BEGIN
8    writeln('Enter any number');
9    readln(n);
10   flag:=false;
11   s:=trunc(sqrt(n*1.0));
12   FOR i:=2 TO s DO
13   IF ((n MOD i)=0) THEN
14   flag:=false
15   ELSE
16   flag:=true;
17   IF flag=true THEN writeln('It is a Prime number')
18   ELSE
19   writeln('Not a prime number');
20 END.
21 
22 
23 
24