Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Algoritmo CONTRASEÑA
- NECESITOREDBULL<-0
- NECESITOCHOCOLATE<-0
- ESCRIBIR "cuantas contraseñas necesita"
- leer DAMECHOCOLATE
- REPETIR
- CONT<-0
- CONT2<-0
- X<-0
- N<-1000000000
- A<-0
- B<-0
- SW<-0
- SW2<-0
- W<-100
- V<-100
- S<-0
- J<-10
- K<-100
- T<-3
- Mientras N>=1
- N<-N/10
- CONT<-CONT+1
- REPETIR
- CONT2<-CONT2+1
- SI (CONT MOD 2)<>0
- ENTONCES
- SW<-1
- X<-N*(AZAR(89)+10)
- A<- trunc((x/n)/10)*(n*10)
- B<- X-A
- SINO SW<-0
- FinSi
- SI A=(B*10)
- Entonces SW2<-0
- SINO SW2=1
- FinSi
- SI CONT2=1000
- ENTONCES
- CONT<-0
- CONT2<-0
- X<-0
- N<-1000000000
- A<-0
- B<-0
- SW<-0
- SW2<-1
- W<-100
- V<-100
- S<-0
- J<-10
- K<-100
- T<-3
- FinSi
- 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
- SI (CONT MOD 2)<>0
- W<-A/100
- J<-A/1000
- V<-B/10
- K<-B/100
- T<-X/100
- FinSi
- SI (CONT MOD 2)<>0
- ENTONCES
- S<-S+x
- FinSi
- FinMientras
- Escribir S
- NECESITOREDBULL<-NECESITOREDBULL+S
- NECESITOCHOCOLATE<-NECESITOCHOCOLATE+1
- Hasta Que NECESITOCHOCOLATE=DAMECHOCOLATE
- ESCRIBIR NECESITOREDBULL
- FinAlgoritmo
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement