Pronto

4. Algoritmo Tabuada
Var
Num, resul, cont: inteiro

Inicio
Resut<-0
Escreva (“----- T A B U A D A -----”)
Escreva (“Informe o valor do numero desejado”)
Leia (num)

Para cont<- 0 ate 10 faça
Result<- num*cont
Escreva (num, “x”, cont, “=”, result)

Fimpara.

8. Algoritmo

Var
Cont, idade, qtde, qtdid, acid, qtda, qtdru: inteiro
Peso, alt, mediaid, por: real
Corolho, corcab: caracter

Inicio
Para cont<- 1 ate 4 faça

Escreva (“entre com os dados solicitados”)
Escreva (“informe a sua idade”)
Leia (idade)
Escreva (informe o seu peso)
Leia (peso)
Escreva (“informe sua altura”)
Lei a (alt)
Escreva (“A cor dos seus olhos”)
Escreva (“[A] – Azul / [P] - Preto”)
Escreva (“[V] – Verde / [C] - Castanho”)
Leia (corolho)
Escreva (“informe a cor do cabelo”)
Leia (Corcab)
Escreva (“[P] – Preto / [C] - Castanho”) escreva (“[L] – Louro / [R] - Ruivo”)

Se (idade > 50) e (peso < 60) então

Qtdpe <– qtdpe+1
Fimse

Se (alt < 1.50) então
Acid <- acid+idade
Qtdid<- qtdid+1
Fimse

Se (corolho = “A”) ou (corolho = “a”) entao
Qtda <- qtda+1
Fimse

Se (corcab = “R”) ou (corcab = “r”) então
Qtdru <- qtdru+1
Fimse

Fimpara

Escreva (“A qtde de pessoas com idade sup a 50 e peso inf a 60 é:”, qtdpe)
Mdid <- acid/qtdid
Escreva (“ A media faz idades das pessoas com altura inf a 1.50 é:”, mdid)
Porc<- (qtda/4) * 100
Escreva (“A por de pessoas com olhos azuis entre as analisadas é:”, porc) escreval("A qtd de pessoas ruivas e q nao tem olhos Azuis eh:", qtdru)

fimalgoritmo

algoritmo "Questao23" var op, numtrab: inteiro sal,vlrdec, nvsal,ferias,decter: real inicio repita escreval("--- M E N U DE O P Ç Õ E S ---") escreval("[1] Novo Salario ") escreval("[2] Férias ") escreval("[3] Décimo Terceiro ") escreval("[4] Sair ") escreval("Digite a OPÇÃO desejada: ") leia(op) escolha(op) caso 1 escreval("Informe o seu Salario: R$") leia(sal) se(sal<=210) entao nvsal<- sal + (sal*0.15) fimse se(sal>210)e(sal<=600) entao nvsal<- sal + (sal*0.10) fimse se(sal>600) entao nvsal<- sal + (sal*0.05)
fimse