1)
Algoritmo  "dependentes e faltas"
Var
// Seção de Declarações das variáveis
            po:inteiro
            pa:caracter

Inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
              escreva("Digite seu nome")
              leia (pa)
              escreva ("Digite o número de dependentes")
              leia (po)
              se (po=2) entao
              escreva("Seu limite de faltas é 3")
              fimse
              se (po=3) entao
              escreva("Seu limite de faltas é 4")
              fimse
              se (po=4) entao
              escreva("Seu limite de faltas é 4")
              fimse
              se (po=5) entao
              escreva("Seu limite de faltas é 4")
              fimse
              se (po>5) entao
              escreva("Seu limite de faltas é 5")
              fimse




Fimalgoritmo
________________________________
2)
algoritmo "Positivo, Negativo ou Zero"
var
n: inteiro
inicio
escreval("Digite um número inteiro: ")
repita
leia(n)
se( n = 0 ) entao
escreval("O número ",0," é zero")
senao
se( n > 0 ) e ( n mod 2 = 0 ) entao
escreval("O número ",n," é positivo")
senao
se( n > 0 ) e ( n mod 2 <> 0 ) entao
escreval("O número ",n," é positivo")
senao
escreval("O número ",n," é negativo")
fimse
fimse
fimse
ate n > 0
fimalgoritmo
_______________________________________
3)
algoritmo "Subtração"
var
n1, n2: Real
inicio
Escreva ("Digite um numero: ")
Leia (n1)
Escreva ("Digite um numero menor que o anterior: ")
Leia (n2)
Escreva ("O resultado da subtração entre esses dois numeros é: ", n1 - n2)
fimalgoritmo
____________________________________________

4)
algoritmo "nota"
var
nota: real
inicio
escreva("Digite uma nota:")
leia(nota)
enquanto (nota < 0) ou (nota > 10) faca
escreval("Erro! A nota deve ser entre 0 e 10")
escreva("Digite novamente a nota: ")
leia(nota)
fimenquanto
se (nota >= 7) entao
escreval("Aluno aprovado!")
senao
escreval("Aluno reprovado!")
fimse
fimalgoritmo
_________________________

5)
algoritmo "maior numero"
var
x, y : inteiro
inicio
escreva("Digite um numero: ")
leia(x)
escreva("Digite outro numero: ")
leia(y)
se(x = y) entao
escreval("Sao iguais")
senao
se(x>y) entao
escreval("O maior é X = ", x)
senao
escreval("O maior é Y = ", y)
fimse
fimse
fimalgoritmo
_______________
6)
a)
Algoritmo "semnome"
Var
valor: real
desconto: inteiro
Inicio
escreva ("digite um valor: r$")
leia (valor)
escreva ("digite o desconto: ")
leia (desconto)
escreva("valor com desconto: R$", valor - (Valor * desconto / 100))
Fimalgoritmo

b)
Algoritmo  "semnome"
Var
a:real
b:inteiro
Inicio
escreva("Digite quantos dias voce pretende pagar:")
leia(b)
escreva("Digite o valor da compra:")
leia(a)
se (b=30) entao
escreva("Você irá pagar: R$", a - (a * 5 / 100))
fimse
fimalgoritmo

c)
Algoritmo  "semnome"
Var
a:real
b:inteiro
Inicio
escreva("Digite quantos dias voce pretende pagar:")
leia(b)
escreva("Digite o valor da compra:")
leia(a)
se (b=60) entao
escreva("Voce irá pagar: R$",a)
fimse
fimalgoritmo

d)
Algoritmo  "semnome"
Var
t:real
y:inteiro
Inicio
escreva("Digite quantos dias voce pretende pagar:")
leia(t)
escreva("Digite o valor da compra:")
leia(y)
se(t=90)entao
escreva("Você irá pagar: R$", y + (y * 5 / 100))
fimse
fimalgoritmo