| CARVIEW |
Select Language
HTTP/2 200
date: Sat, 11 Oct 2025 09:29:43 GMT
content-type: text/html; charset=UTF-8
server: cloudflare
x-frame-options: DENY
x-content-type-options: nosniff
x-xss-protection: 1;mode=block
vary: accept-encoding
cf-cache-status: DYNAMIC
content-encoding: gzip
set-cookie: _csrf-frontend=ba526042644b9ef9dea3e2f26e6b60187fff3acf1b4fad555131640317d89bfba%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22Rb3PCekzIBQoqW86w96VK4mmDfoeg9pN%22%3B%7D; HttpOnly; Path=/
cf-ray: 98cd55ad6ffa343c-BLR
APROG - 30/01/2014 - Exame Época Normal - Grupo I - Pastebin.com
SHARE
TWEET
APROG - 30/01/2014 - Exame Época Normal - Grupo I
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ED:
- INTEIRO num,num1,c1,num2,c2,digito
- ALG I30012014
- INICIO
- ESCREVER("Numero:")
- LER(num)
- ENQUANTO (num>0) FAZER
- num1<-0
- c1<-0
- num2<-0
- c2<-0
- ENQUANTO (num<>0) FAZER
- digito<-num MOD 10
- SE (digito MOD 2=0) ENTÃO
- num1<-digito^c1+num1
- c1<-c1+1
- SENÃO
- num2<-digito^c2+num1
- c2<-c2+1
- FIMSE
- num<-num DIV 10
- FIMENQUANTO
- SE (num1=0 E num2<>0) ENTÃO
- ESCREVER("NUMERO SÒ COM ALGARISMOS ÍMPARES")
- ESCREVER("ALGARISMOS ÍMPARES: "+num2)
- FIMSE
- SE (num1<>0 E num2=0) ENTÃO
- ESCREVER("NUMERO SÒ COM ALGARISMOS PARES")
- ESCREVER("ALGARISMOS PARES: "+num1)
- FIMSE
- SE (num1<>0 E num2<>0) ENTÃO
- ESCREVER("ALGARISMOS PARES: "+num1)
- ESCREVER("ALGARISMOS ÍMPARES: "+num2)
- FIMSE
- ESCREVER("Numero:")
- LER(num)
- FIMENQUANTO
- FIM
Advertisement
Add Comment
Please, Sign In to add comment
-
⭐⭐⭐Exploit 500$ in 15 Minutes⭐⭐
Java | 1 sec ago | 0.10 KB
-
⭐✅ Exploit 2500$ in 15 Minutes⭐⭐⭐ 1
JavaScript | 1 sec ago | 0.24 KB
-
✅⭐ Make $2500 in 15 minutes ✅ NEVER SEEN BEFO...
JavaScript | 2 sec ago | 0.24 KB
-
⭐✅ Exploit 2500$ in 15 Minutes⭐⭐⭐ R
JavaScript | 3 sec ago | 0.24 KB
-
⭐⭐⭐Make $15OO in 2O minutesV E⭐⭐
Java | 12 sec ago | 0.10 KB
-
Free Crypto Method (NEVER SEEN BEFORE)⭐⭐ X
JavaScript | 12 sec ago | 0.24 KB
-
⭐⭐⭐ G2A Payment Exploit ✅ NEVER SEEN BEFORE ⭐...
JavaScript | 12 sec ago | 0.24 KB
-
Free Crypto Method (NEVER SEEN BEFORE)⭐⭐ T
JavaScript | 14 sec ago | 0.24 KB
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
