Algoritmoo

ATIVIDADE 1
Algoritmo “ Atividade 1 "
Var
a1, b1, c1, d1, g1, f1, rf : real
Inicio
escreval (" digite um número: ")
Leia (a1)
Escreval (" digite outro número: ")
Leia (b1)
Escreval ("digite outro número: ")
Leia (c1)
Escreval (" digite outro número: ")
Leia (d1)
Escreval (" digite outro número: ")
Leia (g1)
Escreval (" digite outro número: ")
Leia (f1) rf <- (a1+b1+c1+d1+g1+f1)/6
Escreva (" a media aritmética é:", rf) fimalgoritmo ATIVIDADE 2
Algoritmo " Atividade 2 "
Var
pdp, vdp, pdd, nv : real
Inicio
escreval (" informe o preço:")
Leia (pdp) pdd<- (pdp*0.19)
Escreval ( " o valor do desconto é : ", pdd) nv<- pdp-pdd
Escreval ( " o valor do produto com o desconto é: ", nv) fimalgoritmo ATIVIDADE 3
Algoritmo " Atividade 3 "
Var ba, h, a : real
Inicio
Escreval (" informe a base do retângulo")
Leia (ba)
Escreval (" informe a altura do retângulo")
Leia (h) a<- ba*h
Escreval (" a área do retângulo é:", a) fimalgoritmo ATIVIDADE 4
Algoritmo " Atividade 4 "
Var
a1, b1, c1, d1, r1, r2, r3, r4 : real
Inicio
escreval (" informe um número: ")
Leia (a1) r1 <- raizq (a1) escreval (" a raiz do número é: ", r1) escreval (" informe outro número: ")
Leia (b1) r2 <- raizq (b1) escreval ("a raiz do número é : ", r2) escreval (" informe outro número: ")
Leia (c1) r3 <- raizq (c1) escreval (" a raiz do número é:", r3) escreval (" informe outro número: ")
Leia (d1) r4 <- raizq (d1) escreval ( "a raiz do número é: ", r4) fimalgoritmo ATIVIDADE 5
Algoritmo " Atividade 5 "
Var
n1, n2, n3, n4, cont : real
Inicio
escreval ("informe sua nota:")
Leia (n1)
Se (n1 < 6) entao cont <-cont+1 fimse escreval ("informe sua nota:")
Leia (n2)
Se (n2 < 6) entao cont <-cont+1 fimse escreval (" informe sua nota:")
Leia (n3) se ( n3 < 6) entao cont <-cont+1 fimse escreval ("informe sua nota:")
Leia (n4)
Se (n4 < 6) entao cont <-cont+1 fimse escreval (" foram reprovados: ", cont) fimalgoritmo ATIVIDADE 6 algoritmo " Atividade 6 " var ndm, ndp, no : caracter inicio escreval (" informe o nome