algoritmo "Encontre o maior valor"
var
a,b,c:real
inicio
escreval("Encontre o maior valor") escreva(" Digite o valor de a ")
leia(a)
escreva(" Digite o valor de b ")
leia(b)
escreva(" Digite o valor de c ")
leia(c)
se (a>b) e (a>c) entao
escreva(" a é o maior ")
senao
se (b>c) entao
escreva(" b é o maior ")
senao
se (c>b) entao
escreva(" c é o maior ")
senao
se (a=b)e(b=c)e(c=a) entao escreva(" Todos tem valores iguais ")
fimse
fimse
fimse
fimse
fimalgoritmo
Nenhum comentário:
Postar um comentário