Cap. 3 exercicio 12

algoritmo "Cálculo da média"
   var
     n1, n2, n3, media:real
   inicio
    escreval("Cálculo de média")
    escreva("Digite o valor da 1ª nota ")
     leia(n1)
    escreva("Digite o valor da 2ª nota ")
     leia(n2)
    escreva("Digite o valor da 3ª nota ")
     leia(n3)
    media <- ((n1+n2+n3) div 3)
    escreva ("A média é: ", media)
  fimalgoritmo

Cap. 3 exercicio 10

algoritmo "Categoria de um nadador"
   var
     nome:literal
     idade:real
   inicio
     escreval("Categoria do nadador")
     escreval("Informe o nome do competidor")
     leia(nome)
     escreva(" Digite a idade do(a) nadador(a) - ")
       leia(idade)
   se ((idade>=5) e (idade<=7)) entao
     escreva(" A Categoria de ", nome, " é Infantil A")
  senao
    se ((idade>7) e (idade<=10)) entao
      escreva(" A Categoria de ", nome, " é Infantil B")
     senao
       se ((idade>10) e (idade<=13)) entao
         escreva(" A Categoria de ", nome, " é Juvenil A")
        senao
          se ((idade>13) e (idade<=17)) entao
            escreva( "A Categoria de ", nome, " é Juvenil B")
           senao
             se (idade>=18) entao
               escreva(" A Categoria de ", nome, " é Sênior")
              senao
                escreva(nome, " não compete")
             fimse
          fimse
       fimse
    fimse
 fimse
 fimalgoritmo

Cap 3 - Exercicio 13

algoritmo "cap03 Exer3_13"
var
   altura,peso,acimapeso, pesoabaixo,pesoideal:real
   sexo:literal
inicio
escreva("Sua altura: ")
leia(altura)
escreva("Seu peso:")
leia(peso)
escreva("Seu sexo:")
leia(sexo)

se ((sexo = "Masculino") ou (sexo = "M")) entao
   pesoideal <- ((72.7*altura)-58)
senao
   pesoideal <- ((62.1*altura)-44.77)
fimse
     se (peso > pesoideal) entao
     acimapeso <- (peso-pesoideal)
     escreva("'Você está acima do Peso em: '", acimapeso: 5:2,"kg")
     escreval
       senao
         se (peso<pesoideal) entao
           pesoabaixo <- (pesoideal - peso)
           escreva ("'Você está abaixo do peso em: '", pesoabaixo: 5:2,"Kg")
           escreval
         fimse
fimse
escreva("Seu peso ideal é: ",pesoideal)
fimalgoritmo

Cap 3 exercicio 6

 a x X + b x y = c
 d x X + e x y = f
pode ser resolvido da seguinte forma:


x =  c x e  - b x f
a x e - b x d

y = a x f – c x d
a x e – b x d

Escreva um algoritmo que leia os coeficientes a, b, c, d e f e calcule e escreva os valores de x e y.
Lembre-se de que os denominadores das equações não podem ser zero.

Resposta:

algoritmo "Exercicio 3.6"
var   vA,vB,vC,vD,vE,vF,x,y:real
inicio   escreval("Informe o valor de 'a':")
   leia(vA)
  
   escreval("Informe o valor de 'b':")
   leia(vB)
  
   escreval("Informe o valor de 'c':")
   leia(vC)
  
   escreval("Informe o valor de 'd':")
   leia(vD)
  
   escreval("Informe o valor de 'e':")
   leia(vE)
  
   escreval("Informe o valor de 'f':")
   leia(vF)

   se (vA=0 ou vE=0) entao
      escreva("O valor de 'a' e 'e' não podem ser igual a 0(zero)")
   senao
      x<- ((vC*vE)-(vB*vF))/((vA*vE)-(vB*vD))
      y<- ((vA*vF)-(vC*vD))/((vA*vE)-(vB*vD))
   fimse
fimalgoritmo

Cap 3 exercicio 5

Escreva um algoritmo que lê dois números inteiros e informa se o primeiro é múltiplo do segundo.

algoritmo " São múltiplos ou não múltiplos"var
  x,y:real
inicio
  escreval(" São múltiplos ou não múltiplos.")
  escreva(" Digite o primeiro número = ")
  leia(x)
  escreva(" Digite o segundo  número = ")
  leia(y)
  se ((x>y e ((x mod y)= 0)) entao
  escreva ("São múltiplos.")
  senao
  escreva("Não são múltiplos.")
  fimse
  fimalgoritmo

Cap 3 - Exercicio 4

 Escreva um algoritmo para calcular a área de um círculo, fornecido o valor do raio, que deve ser.


 algoritmo "Cálculo" var area,raio:real inicio      
 escreva ("Digite o valor de raio: ")
  leia (raio)
  Se ((raio>0) ou (raio=0)) entao
  area <- pi*(raio^2)
  escreva ("Área igual a ",area:5:2)
  senao
  escreval ("O raio precisa ser >=0 ")
  escreval ("*** F IM ***")
  fimse
  fimalgoritmo

Cap 3 exercicio 3

 Quais os valores armazenados em SOMA, NOME e TUDO após executados os passos abaixo, supondo-se que NUM, X, COR, DIA, TESTE e COD valem, respectivamente, 5, 2, “AZUL”, “TERÇA”, FALSO e VERDADEIRO? 1. NOME <- DIA / 2. SOMA <- (NUM^2/X) + (X + 1) / 3. TUDO <- não ((TESTE ou COD) e (X <> NUM))

1. Terça
2. (312.5) + (3) = 315.5
3. ñ ((F) e (V) = V) = ñ V = F^2/x) + (x+1)

Cap 3 Exercicio 2

Avalie (forneça o resultado da expressão lógica (((5/2) e (3*0 < > 3*1)) ou (5 > = 4)) e (não (5= 5*0))) mostrando todos os passos utilizados para obtenção da solução.

(((5/2 = 5/2) e (3.0 <> 3.1)) ou (5 >= 4)) e (não(5 = 5.0))
        V         e         V          ou       V      e        F
                        V                         ou               F
                                      =  F

Exercicio Cap 3 - 1

Resolva as expressões lógicas:

 

1.    2 >3 - Falso

 2.   (6 < 8) ou (3 > 7) - Verdadeiro

 3.   não (2 <> 2.0) - Verdadeiro

 4.   5 >= 6 ou  6 < 7 ou não ( a+ 5 – 6 = 8) - Verdadeiro

 5.    ( 34 < 9 e 5 + u = 34) ou (5 = 15/3 e 8 > 12) onde u = 29 - Falso

algoritmo "Maioridade"
var
    idade: inteiro
inicio
         Escreva ("Digite a idade")
         leia (idade)
         se (idade >= 18) então
           escreva ("Eh de maior")
         fimse
           senão
             escreva ("Eh de menor")
           fimse
          
fimalgoritmo

Capt 2 exercicio 18

Uma revenda de carros paga a seus vendedores um salário de X reais por mês, acrescido de uma
comissão de y reais para cada carro vendido e 4% do valor total de vendas. Escreva um algoritmo
que leia o nome do vendedor, seu salário, número de carros que ele vendeu no mês e o valor total
de suas vendas. O algoritmo deve escrever o nome e o salário final do vendedor.

algoritmo "venda de veículos por vendedor"


var
nomeVendedor:literal
salarioInicial, valorTotalVendas, comissaoPorCarro, comissaoTotalVendas, totalComissao, salarioFinal: real

qtdeCarros:inteiro



inicio
escreval("Informe o nome do vendedor:")
leia(nomeVendedor)
escreval("Informe o salário inicial:")
leia(salarioInicial)
escreval("Informe a qtde de carros vendidos:")
leia(qtdeCarros)
escreval("Informe o valor ganho por cada carro vendido:")
leia(comissaoPorCarro)
escreval("Informe o total de vendas:")
leia(valorTotalVendas)
comissaoTotalVendas <- valorTotalVendas * 0.04
totalComissao <- (comissaoPorCarro * qtdeCarros) + comissaoTotalVendas
salarioFinal <- salarioInicial + totalComissao
escreval("O salário total do vendedor ", nomeVendedor, "será de R$", salarioFinal:5:2)



fimalgoritmo

Capt 2 exercicio 17

Faça um algoritmo que leia o dia do mês ( valor de 1 a 31), e o dia da semana correspondente (1 a

7). O algoritmo deve calcular e escrever o dia da semana (1 a 7) correspondente ao primeiro dia do
mês.

algoritmo "Primeiro dia do mes"
var
diaMes, diaSemana:inteiro

inicio
escreva("Informe o dia do mês (De 1 a 31): ")
leia(diaMes)
escreva("Informe o dia da semana (De 1 a 7): ")
leia(diaSemana)
escreval
escreval("Dia do mês fornecido: ", diaMes)
escreval("Dia da semana fornecido: ", diaSemana)
escreval
//Na ausência de uma fórmula mágica, usarei laço de repetição com estrutura de condição...
enquanto diaMes > 1 faca
diaMes <- diaMes - 1
se (diaSemana = 1) entao
diaSemana <- 7
senao
diaSemana <- diaSemana - 1
fimse
fimenquanto
escreval("O dia da semana correspondente ao primeiro dia do mês é: ", diaSemana)

fimalgoritmo

Capt2 exercicio 16

Escreva um algoritmo que leia um valor composto apenas de 0’s e 1’s representando um número na

base binária (com até 6 dígitos ou bits). O algoritmo deve escrever esse mesmo número na base
decimal. A conversão de binário para decimal é feita somando –se os produtos de cada digito do
número binário, por seu peso, sendo que o digito mais à direita tem peso 1 (2°), o seguinte tem
peso 2 (2¹), 4 (2²), 8 (2³), etc. Por exemplo 110101 é 53 .
(1×32 + 1x 16 + 0×8 + 1×4 + 0x 2 + 1×1 = 32 + 16 + 0 + 4 + 0 + 1 = 53)

Capt 2 Exercicio 15

Escreva um algoritmo que leia o valor do raio e calcule a área do circulo correspondente.

algoritmo "Calculo da área do círculo"
var
r, area:real

inicio
escreva("Informe o Raio do Círculo (r): ")
leia(r)
area <- 3.14 * r^2
escreva("Área do círculo: ", area)

Capt 2 Exercicio 14

Escreva um algoritmo que calcule a quantidade de latas de tinta necessárias e o custo para pintar

tanques cilíndricos de combustível, onde são fornecidos (o algoritmo lê) a altura (h ) e o raio ) e o
raio ( r ) desse cilindro. Sabe-se que a lata de tinta anticorrosiva custa R$ 40.00, cada lata contem 5
litros e cada litro pinta 3 metros quadrados na média. Para que fique bem coberto de tinta, há
necessidade de 2 demãos.

algoritmo "Pintura de Cilindros"


var
totalLitros, qtdeLatas, areaBase, areaLateral, areaTotal, custoTotal, h, r, total:real

inicio
escreval("Pintura de Cilindros")
escreval
escreva("Informe a Altura do Cilindro (h): ")
leia(h)
escreva("Informe o Raio do Cilindro (r): ")
leia(r)
//Calculando quantos metros quadrado tem o cilindro
areaBase <- 3.14 * r^2
areaLateral <- 2 * 3.14 * r * h
areaTotal <- areaLateral + (2 * areaBase)
//Area total / 3 * 2 demãos de tinta
totalLitros <- areaTotal / 3 * 2
qtdeLatas <- totalLitros / 5
custoTotal <- qtdeLatas * 40
escreval("Qtde de Latas de tintas por Tanque: ", qtdeLatas:5:2)
escreva("Valor Total: R$", custoTotal:5:2)

fimalgoritmo

Capt2 exercicio 13

Escreva um algoritmo que calcule e escreva o valor de um termo an qualquer de uma progressão
geométrica dada por:
an = a1 * q^(n-1)
onde a1, é o primeiro termo da série, an, é o enésimo termo, q é a razão e n é o numero de termos.
Os valores de a1, q e n serão fornecidos pelo usuário.

algoritmo "Capítulo 2 - Exercício 13"




var

a1, an, q, n:real

inicio
escreval("Calculo de uma Progressão Geométrica")
escreva("Informe o valor de A1: ")
leia(a1)
escreva("Informe o valor de Q: ")
leia(q)
escreva("Informe o valor de N: ")
leia(n)
an <- a1 * (q^(n-1))
escreval("Valor do termpo An: ", an)
fimalgoritmo

Capt 2 exercicio12

Escreva um algoritmo que calcule e escreva a soma Sn dos n primeiros termos de uma progressão
aritmética dada pela formula:
sn = ((a1 + an) / 2) * n
Onde a1, é o primeiro termo da progressão, an, é o ultimo e n é o numero de termos, tal que:
n = ((an – a1) / r) + 1
Os valores de a1, an e r (a razão da progressão) serão fornecidas pelo usuário.

algoritmo "Calculando a soma da prograssão aritmetica"


var
a1, an, r, sn, n:real

inicio
escreval("Calculando Soma de Progressão Aritmética")
escreva("Informe o valor de a1: ")
leia(a1)
escreva("Informe o valor de an: ")
leia(an)
escreva("Informe o valor de r: ")
n(r)
n <- ((an - a1)/r) + 1
sn <- ((a1 + an)/2) * n
escreval("O valor da soma de N é: ", sn)
fimalgoritmo

cap 2 exercicio 11

Em uma pizzaria, cada tulipa de chope custa R$ 2,80 e, uma pizza mista grande custa R$ 20.00 mais
R$ 1.50 por tipo de cobertura pedida (queijo, presunto, banana, etc.). Uma turma vai à pizzaria e
pede uma determinada quantidade de chopes e pizzas grandes com uma determinada quantidade
de coberturas. Escreva um algoritmo que calcula a conta e, sabendo quantas pessoas estão à mesa,
quanto cada uma deve pagar (não esqueça os 10% do garçom).Algoritmo ("Conta do restaurante")

Algoritmo("conta do restaurante")

Var
tulipa, pizza, cobertura, pessoas, gorjeta, V_tulipa, V_pizza, Valor_Pagar

inicio
escreva ("informe a quantidade de tulipas consumidas")
leia (tulipas)
V_tulipa <-tulipa*2,80
Escreva ("informe a quantidade de pizzas consumidas")
V_pizza <- (pizza*20,00)+(pizza*1,50)
leia (V_pizza)
escreva("informe a quantidade de pessoas")
leia (pessoas)
gorjeta<- 10/100
Valor_pagar <- ((V_tulipa+V_pizza)+gorjeta)/pessoas
Escreva (" o valor que cada pessoa deverá pagar eh", Valor_pagar)

fimalgoritmo

Cap 2 exercicio 10

Um representante comercial realizará uma viagem de vários dias com um automóvel, e, após,

deseja saber a quilometragem média por litro de gasolina. Para isso, ele anotará a quilometragem
no velocímetro ao sair de viagem e, depois, a quilometragem na chegada, ele também vai somar
toda gasolina (em litros) usada para abastecer o carro durante a viagem. Escreva um algoritmo que,
a partir desses dados, informe a quilometragem média por litro de gasolina.

algoritmo "
var
distanciaKm, tempoMin, velocidadeMedia:real
nomePiloto:literal

inicio
escreval("Calculando velocidade média do piloto")
escreval
escreva("Informe o nome do piloto: ")
leia(nomePiloto)

escreva("Informe a distância percorrida: ")
leia(distanciaKm)

escreva("Informe o tempo percorrido (Em minutos): ")
leia(tempoMin)

velocidadeMedia <- distanciaKm * (tempoMin / 60)
escreva("A velocidade média do ", nomePiloto, " foi ", velocidadeMedia:5:3, "KM/h")


fimalgoritmo

algoritmo "Teste"

var
marca: literal
idade: numérico //numerico é sem acento agudo no E
letra: literal
marca: numérico //já existe uma variável com o nome 'marca'

início //Não tem acento agudo no I
leia(idade)
escreva(idade)
idade = 678
leia(“letra”) //Não está atribuindo valor à nenhuma variável
leia(ABC) //Não existe a variável ABC
escreva (letra) //Letra não recebeu nada
letra <- 4 //Letra é do tipo literal, então não pode receber um valor inteiro
fimalgoritmo

Capt 2 exercicio 7

Escreva um algoritmo que calcule o valor de base . O algoritmo deve ler o valor da base e do expoente. Após, ele deve escrever o valor de base elevado ao expoente

algoritmo "Calculo da base"


var
base, expoente, total:real

inicio
escreval("Capítulo 2 - Exercício 7")

escreval



escreva("Informe o valor da base: ")

leia(base)



escreva("Informe o valor do expoente: ")

leia(expoente)

total <- base^expoente

escreva("Resultado: ", base, " elevado a ", expoente, " é ", total)

fimalgoritmo

Capt 2 exercicio 5

Assinale com um X os nomes de variáveis válidos

1(x) abc      5( )-a           9(x) prim-nom       13(x) 3.1415
2( )3abc      6(x) acd1   10(x) A123             14( ) etc
3(x)a           7( )-_ad     11(x) Aa                 15(x) E
4( )123°      8( )A&a     12(x)prim_nom       16( ) "nome"

capt 2 - exercicio 4

Classifique os valores das constantes abaixo, de acordo com seu tipo, assinalando com N os dados numéricos e com L os literais:


1(N) 0             5( N) 1012        9( N) 569           13( N)3.1415
2( L) "abc"      6(L ) "V"          10( L)"Zé"            14(N )-545
3( L) "joão"     7( N) -49        11( N) 5.   7          15( L)"444"
4(L ) "falso"     8( N)  +342    12(N )0.00001      16( L)"1+2"

Capt 2 Exercicio 3

Resolva a expressão aritmética abaixo montando todos os passos utilizados para a obtenção da solução:
(20%7) + 7 – 3.0 + 7/2 + (19\5) + (20 + 4)/4*3

algoritmo "Capítulo 2 - Exercício 3"


var
total: numerico

inicio
escreval("resolvendo a expressão aritmetica")
total <- (20%7) + 7 – 3.0 + 7/2 + (19\5) + (20 + 4)/4*3
escreva("O valor da expressão é: ", total)

fimalgoritmo

Capt 2 exercicio 2

Escreva as expressões abaixo na forma convencional
respostas

1. (12 + 1)/ (4*a/45)^0.5


2. (a + x^(2 + w) -3*a)/2

3. 12*x/(36 – 9^y)

4. (17^0.5 + 4)/3
 

Capt 2 - Exercicio 6

Assinale com um X os comandos de atribuição considerados inválidos

Respostas dos comandos invalidos:
1- nome <-5
2- Soma <- NUm +2*x
3- Teste <- soma
6- X <- x+ "1"
7- NUM<- "ABC"
9- Soma + 2 <- NUM
10- x <-nome = cor
11- "ABC" <- nome
12- NOME <- DIA + COR

Capt 2 - Execicio 1

Escreva as expressões abaixo na forma de sintaxe do Português Estruturado

Respostas

1 – raizq( ((2+x) * x + u) / (a+b+c) )

2 – x^2 + ( (3*(x^(x+1))) / 2 ) + raizq(x+1)

3 – h – ( ((45/7) * x – 4*h*(3+a)) ^3 )

4 – ( -b – (raizq(b^2 – 4*x*a*x*c)) ) / (2*a)
5 – (-raizq((-6^x) + (2*y)) ) / (3^9)

6 – raizq(6) + ((x*y) / (2*x)) + (3^2) – ( (x^2) / 3)

20/08 exercico 6 do caderno

Faça um algoritmo que leia o tempo de duração de um evento em uma fábrica expresso em segundos e mostre-o expresso em horas, minutos e segundos.

algoritmo "Calcular tempo de trabalho"


var
segundos, minutos, horas, totalSegundos, sobraHoras, sobraMinutos:inteiro

inicio
escreval("Calcular tempo de trabalho")
escreval
escreva("Informe o tempo em Segundos: ")
leia(totalSegundos)
horas <- totalSegundos div 3600
sobraHoras <- totalSegundos - (horas * 3600)
minutos <- sobraHoras div 60
segundos <- sobraHoras - (minutos * 60)
escreva("Tempo de trabalho: ", horas, " hora(s), ", minutos, " minuto(s) e ", segundos, " segundo(s)")

fimalgoritmo

20/08 exercicio 3 do caderno

Faça um algoritmo que leia a idade de uma pessoa expressa em anos, meses e dias e mostre-a expressa apenas em dias:

algoritmo "Exibir idade da pessoa em dias"


var
dias, meses, anos, total_dias: inteiro

inicio
escreval("Exibir idade da pessoa em dias")
escreval
escreva("Informe um valor para Anos: ")
leia(anos)
escreva("Informe um valor para meses: ")
leia(meses)
escreva("Informe um valor para dias ")
leia(dias)
total_dias <- (anos * 365) + (meses * 30) + dias
escreva("O total de Dias é de: ", total_dias)

fimalgoritmo

20/08 Exercicio 2

Escreva um algoritmo que leia 3 números inteiros positivos (A, B, C) e calcule a seguinte expressão:

D = (R+S)/2, Onde:
R = (A+B)^2
S = (B+C)^2

algoritmo "Calculo da expressão"

var
a, b, c: inteiro
d: real

inicio
escreval("Calculo da expressão")
escreva("Informe o valor de A: ")
leia(a)
escreva("Informe o valor de B: ")
leia(b)
escreva("Informe o valor de C: ")
leia(c)
d <- ( ((a+b)^2) + ((b+c)^2) )/2
escreva("O valor de D é: ", d)

fimalgoritmo

20/08 Exercicio 1

Construa um algoritmo que, tendo como dados de entrada dois pontos quaisquer do plano, P(x1, y1) e P(x2,y2), escreva a distância entre eles.
A formula que efetua tal cálculo é: d=raizq( ((x2-x1)^2) + ((y2-y1)^2) )

algoritmo "Calculando a distância entre dois pontos"


var
x1, x2, y1, y2, distancia: real
início
escreval("Calcular distância entre pontos")
escreva("Qual é o valor de X1? ")
leia(x1)
escreva("Qual é o valor de X2? ")
leia(x2)
escreva("Qual é o valor de Y1? ")
leia(y1)
escreva("Qual é o valor de Y2? ")
leia(y2)
distancia <- (raizq ((x2-x1)^2) + ((y2-y1)^2) )
escreva("A distância entre os dois pontos eh: ", distancia:5:2)

fimalgoritmo

exercicio 5 do caderno

Faça um algoritmo que leia as três notas de um aluno e calcule a media final deste aluno, considerar que a media é ponderada e que o peso das notas é 2, 3 e 5 respectivamente.

Algoritmo ("Calculo da media ponderada")

var
n, n2, n3, soma, media_ponderada: real

inicio
Escreval ("calculando a media ponderada")
escreva ("digite a nota 1")
leia (n1)
Escreva ("digite a nota 2")
leia (n2)
escreva ("digite a nota 3")
leia (n3)
soma <- ((n1*2) + (n2*3) + (n3*5))
media_ponderada <- (soma/3)
Escreva (" A media das notas eh", media_ponderada: 5:2)
Fimalgoritmo

exercicio 4 do caderno

Você possui dois gatose acabou de comprar um pcte de ração (Kg), você deve dividir as porções de ração levando em conta o peso de cada gato. Sabendo que para 1 Kg de gato deverá ser servido 50g de ração diariamente. Faça um algoritmo que solicite o peso de cada gato e o peso do pcte de ração, o algoritmo deverá calcular as porções diária e mostrar o quanto em grmas existe no pcte de ração após 5 dias.

Algoritmo ("calculando o peso dos gatos e da ração")

var
g1, g2, ração, peso_g1, peso_g2, porção_diaria, porção_gatos_periodo, sobra_ração: real

inicio
escreval ("calculando porção diária e sobra da ração")
peso_g1 <- (g1*50g)
peso_g2 <- (g2*50g)
porção_diaria <- (Peso_g1 + peso_g2)
porção_gatos_periodo <- (5*porção_diaria)
sobra <- ((ração*1000)- porção_gatos_periodo)
Escreva ("A sobra no pacote de ração eh", sobra)
fimalgoritmo

Exercicio 3 do caderno

calcular a area de um triangulo equilatero, dado somente a base.

algoritmo ("calculo da area")

var
  b, h, area: real

inicio

Escreval ("calculando a area de um triangulo equilatero")
escreval ("digite o valor da base")
leia (b)
h <-((b*(raizq 3)/2)
area <- ((b*h)/2)
escreva ("O valor da area eh", area: 5:2)
Fimalgoritmo

Exercicio 2 do caderno

calcule a área do triângulo, você recebe a base e a altura.

Algoritmo ("calculando a area do triangulo")

var
b, h, area: real

inicio
escreval ("calculando a area do triangulo")
escreva ("informe o valor da base do triangulo")
leia (b)
escreva ("informe o valor da altura do triangulo")
leia (h)
area <- (b.h/2)
escreva ("O valor da area do triangulo eh", area: 5:2)
Fimalgoritmo

Exercicio 1 do caderno

Dado três notas, calcule a média e mostre essa média.

Algoritmo ("***Calculo da média***")

var
n1, n2, n3, media: real

inicio
escreval ("calculando a média")
escreval ("digite a primeira nota")
leia (n1)
escreval ("digite a segunda nota")
leia (n2)
Escreval ("digite a terceira nota")
leia (n3)
media <-(n1+n2+n3/3)
Escreva ("A media das notas eh", media: 5:2)
fimalgoritmo