کد فرترن برنامه ای که عددی رو میگیره و نشون میده اول هست یا نه.
یکی از راه های تشخیص عدد اول اینه که تعداد مقسوم علیه هاش فقط 2 تا است.من هم از همین روش استفاده کردم.
PROGRAM fuct
1. IMPLICIT NONE
2. INTEGER::n,i,k
3. READ*,n
4. k=0
5. DO i=1,n
6. IF (MOD(n,i)==0) THEN
7. k=k+1
8. END IF
9. END DO
10. IF (k==2) THEN
11. PRINT*,"yes"
12. ELSE
13. PRINT*,"no"
14. END IF
15. END