Advertisement
Guest User

GIVE ME ...

a guest
Apr 29th, 2016
76
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.33 KB | None | 0 0
  1.  
  2. Algoritmo CONTRASEÑA
  3. NECESITOREDBULL<-0
  4. NECESITOCHOCOLATE<-0
  5.  
  6. ESCRIBIR "cuantas contraseñas necesita"
  7. leer DAMECHOCOLATE
  8. REPETIR
  9. CONT<-0
  10. CONT2<-0
  11. X<-0
  12. N<-1000000000
  13. A<-0
  14. B<-0
  15. SW<-0
  16. SW2<-0
  17. W<-100
  18. V<-100
  19. S<-0
  20. J<-10
  21. K<-100
  22. T<-3
  23.  
  24. Mientras N>=1
  25. N<-N/10
  26. CONT<-CONT+1
  27. REPETIR
  28. CONT2<-CONT2+1
  29. SI (CONT MOD 2)<>0
  30. ENTONCES
  31.  
  32. SW<-1
  33. X<-N*(AZAR(89)+10)
  34. A<- trunc((x/n)/10)*(n*10)
  35. B<- X-A
  36.  
  37.  
  38. SINO SW<-0
  39.  
  40. FinSi
  41. SI A=(B*10)
  42. Entonces SW2<-0
  43.  
  44. SINO SW2=1
  45.  
  46. FinSi
  47. SI CONT2=1000
  48. ENTONCES
  49. CONT<-0
  50. CONT2<-0
  51. X<-0
  52. N<-1000000000
  53. A<-0
  54. B<-0
  55. SW<-0
  56. SW2<-1
  57. W<-100
  58. V<-100
  59. S<-0
  60. J<-10
  61. K<-100
  62. T<-3
  63.  
  64. FinSi
  65.  
  66.  
  67. Hasta Que A<>W Y A<>J Y B<>V Y B<>K Y A<>V y A<>K Y B<>W Y B<>J Y T<X Y SW2=1 O SW=0
  68.  
  69. SI (CONT MOD 2)<>0
  70. W<-A/100
  71. J<-A/1000
  72. V<-B/10
  73. K<-B/100
  74. T<-X/100
  75. FinSi
  76.  
  77. SI (CONT MOD 2)<>0
  78. ENTONCES
  79. S<-S+x
  80. FinSi
  81.  
  82.  
  83.  
  84.  
  85. FinMientras
  86. Escribir S
  87. NECESITOREDBULL<-NECESITOREDBULL+S
  88. NECESITOCHOCOLATE<-NECESITOCHOCOLATE+1
  89. Hasta Que NECESITOCHOCOLATE=DAMECHOCOLATE
  90. ESCRIBIR NECESITOREDBULL
  91. FinAlgoritmo
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement