Question

Preciso de um algoritmo pra ler dez nomes e dez idades e indicar a pessoa mais nova. Devo usar o comando While. Td isso em Pascal

Answer 1

Resposta:

var

NOME1, NOME2 : literal

ANO1, ANO2, IDADE1, IDADE2 : numérico

inicio

leia "Digite o primeiro nome:", NOME1

leia "Digite o ano de nascimento da primeira pessoa:", ANO1

leia "Digite o segundo nome:", NOME2

leia "Digite o ano de nascimento da segunda pessoa:", ANO2

IDADE1 2001 - ANO1

IDADE2 2001 - ANO2

escreva "Primeira pessoa: ",NOME1

escreva "Ano de nascimento: ",ANO1

escreva "Idade: ",IDADE1

escreva "Segunda pessoa: ",NOME2

escreva "Ano de nascimento: ",ANO2

escreva "Idade: ",IDADE2

se IDADE1 < IDADE2

então escreva "A pessoa mais nova:",NOME1

fimse

se IDADE1 > IDADE2

então escreva "A pessoa mais nova: ",NOME2

fimse

fimalgoritmo

Explicação:

so seguir codgo