lunes, 25 de marzo de 2013

Elabore un programa que me permita generar los 10 primeros números figorasi y me presente en pantalla cuantos son primos considerando q el 1 y 2 son primos.
inicio
  T=0 NT=0 C=0
  P=1 S=2 AC=
  Y=0 X=0
ESCRIBA P,S
AC=P,S
      FOR( Y=1 + 0 8)
         T=P+S
      ESCRBA    T
         P=S
        S=T

    FOR(X=1 a T)
         R=T MOD X
           IF ( R==0)
              si
                 C=c+1
     NEXT
       X
          IF (C==2)
             si
                 NP=NP+1
                 AC=AC+NP
     NEXT
        Y
     ESCRIBA AC
FIN.

No hay comentarios:

Publicar un comentario