Algoritmo "CONTADOR" Algoritmo "CONTADOR 2" Algoritmo "TABUADA"
Var Var Var
N, Cont, S: inteiro N, S: inteiro cont, N, result: inteiro
Inicio resp: caractere
S <- 0 Inicio
Cont <- 1 Inicio cont <- 1
Enquanto (Cont <= 5) faca S <- 0 escreval(" Qual tabuada deseja Executar? ")
escreval(" Digite o ", cont, "o. Valor ==> ") resp <- "S" leia(N)
leia(N) Enquanto (resp = "S") faca repita
S <- S + N escreval(" Digite o Valor ==> ") result <- (N*cont)
Cont <- Cont+1 leia(N) escreval (N, " x " , cont, " = ", result)
fimenquanto S <- S + N cont <- cont+1
escreval(" A soma de todos os valores escreval(" Deseja Continuar? S/N? ") ate (cont > 10)
digitados é ", S)
leia(resp)
fimenquanto
Fimalgoritmo
escreval(" A soma de todos os valores Fimalgoritmo
digitados é ", S)
Fimalgoritmo
Algoritmo "Total Negativo" Algoritmo "FATORIAL" Algoritmo "CONTAR NUMEROS PRIMOS"
Var Var Var
N, C, TotN: inteiro Cont, Num, Fat: inteiro C, Num, ContDiv: inteiro
R: caractere Inicio
Inicio Inicio C <- 1
c <- 1 repita ContDiv <- 0
TotN <- 0 escreval(" Digite um Numero: ") escreva (" Digite um Numero: ")
repita leia(Num) leia(Num)
escreval(" Digite um Numero: ") cont <- Num repita
leia (N) Fat <- 1 se (Num % C = 0) então
se (N<0) entao repita ContDiv <- ContDiv + 1
TotN <- TotN+1 Fat <- Fat*Cont fimse
fimse Cont <- Cont - 1 C <- C + 1
C <- C + 1 ate (Cont < 1) ate (C < Num)
ate (C > 5) escreval (" O valor fatorial de ", Num, " é igual se (ContDiv > 2) entao
a: ", Fat)
escreval (" FOram digitados ", TotN, " escreval (" O valor ", Num, " não é primo")
numeros negativos")
senao
Escreval("______________________________")
Escreval(" O valor ", Num, " é primo")
Escreval(" Deseja Continuar? S/N: ")
Fimalgoritmo
fimse
leia(R)
limpatela
Fimalgoritmo
até (R="N")
Fimalgoritmo