‎2008 Feb 18 4:18 AM
‎2008 Feb 18 4:42 AM
‎2008 Feb 18 5:16 AM
DATA: num type i,
div TYPE i,
num1 type i,
num2 TYPE i,
per type i.
num = 100.
num1 = 1.
write: / 'List of Prime Numbers'.
do num TIMES.
add 1 to num1.
div = 2.
if num1 le 3.
write: / num1 LEFT-JUSTIFIED.
else.
do num1 times.
per = num1 mod div.
if per eq 0.
exit.
endif.
num2 = num1 / 2.
if div eq num1 or div ge num2 .
IF per ne 0.
WRITE: / num1 LEFT-JUSTIFIED.
exit.
ENDIF.
else.
add 1 to div.
CONTINUE.
endif.
enddo.
endif.
enddo.
Try this..
Regards
Praveen