Question

Faça um algoritmo que receba a idade e o peso de 7 pessoas, calcule e mostre: • A quantidade de pessoas com mais de 90 quilos; • A média das idades das 7 pessoas.

Answer 1

algoritmo"peso"
var
peso, idade : Real
np, vezes, P90, idade : Inteiro
início
np <- 1
vezes <- 0
p90 <- 0
somaida <- 0
Repita
EscrevaL("informe o peso da " , np ,"° Pessoa ")
Leia (peso)
Se (peso >90) então
p90 <- p90 + 1
FimSe
EscrevaL (" informe a idade da" ,np,"° Pessoa" )
Leia(idade)
somaida <- somaida + idade
np <- np + 1
vezes <- vezes + 1
Ate(vezes>7)
mida <- somaida/ 7
EscrevaL (p90, " Com mais de 90 KG")
EscrevaL ("A média das idades é", somaida)
fimalgoritimo

Answer 2

Resposta:

Algoritmo "Peso e Idade"

Var

  CONT ,ID ,I ,P1:inteiro

  P ,M: real

Inicio

  P1 <- 0

  ID <- 0

  para CONT de 0 ate 7 faca

     escreva ("Digite a sua Idade: ")

     leia (I)

     escreva("Digite o seu peso: ")

     leia (P)

     limpatela

     se (P >= 90) entao

        P1 <- P1 + 1

        ID <- ID + I

     senao

     fimse

  fimpara

  M <- ID / 7

  Escreval ("Idade media das setes pessoas: ",M:0:2)

  Escreval ("Pessoas com peso superior a 90 KG: ",P1)

Fimalgoritmo

Explicação:

Cogigo limpo