MIGUEL
01 de Septiembre del 2005

por favor hechenme la mano con un codigo donde se debe de calcular dentro de un rango del 0 al 100 por ejemplo del 10 al 20 ó del 30 al 40 y que indique los numeros primos, pares e impares dentro del rango dado. se los agradesere

Manuel
01 de Septiembre del 2005

INF=30 &&CÁMBIALE VALOR
SUP=75 &&CÁMBIALE VALOR
DIME PRIMOS(SUP-INF+1),PARES(SUP-INF+1),IMPARES(SUP-INF+1)
STOR 0 TO PRI,PAR,IMP
FOR I=INF TO SUP
IF MOD(I,2)=0
PAR=PAR+1
PARES(PAR)=I
ELSE
IMP=IMP+1
IMPARES(IMP)=I
ENDI
MULTIPLO='NO'
FOR J=2 TO I/2
IF MOD(I,J)=0
MULTIPLO='SI'
EXIT
ENDI
ENDF
IF MULTIPLO='NO'
PRI=PRI+1
PRIMOS(PRI)=I
ENDI
ENDF
MESSAGEB('ENTRE '+ALLT(STR(INF))+' Y '+ALLT(STR(SUP))+', HAY '+ALLT(STR(PAR))+' PARES, '+ALLT(STR(IMP))+' IMPARES Y '+ALLT(STR(PRI))+' PRIMOS')
@03,10 SAY ' PARES'
FOR I=1 TO PAR
@4+I,10 say PARES(I)
ENDF
@03,20 SAY ' IMPARES'
FOR I=1 TO IMP
@4+I,20 say IMPARES(I)
ENDF
@03,30 SAY ' PRIMOS'
FOR I=1 TO PRI
@4+I,30 say PRIMOS(I)
ENDF

jmiguel07
01 de Septiembre del 2005

1000 GRACIAS T DEBO UNA, A QUE TE DEDICAS