Algoritmo - Triangulo

var
a, b, c : real
inicio
escreva("entre com o valor de a: ")
leia(a)
escreva("entre com o valor de b: ")
leia(b)
escreva("entre com o valor de c: ")
leia(c)
se (A<B+C) e (B<A+C) e (C<A+B) entao
 escreval("É um triangulo")
se (A=B) e (B=C) entao
  escreva ("Triangulo Equilátero")
   senao
    se (A=B) ou (B=C) ou (A=C) entao
  escreva ("Triângulo Isósceles")
    senao
escreva ("Triangulo Escaleno")
    fimse
   fimse
senao
  escreva ("Não é um triângulo")
fimse
fimalgoritmo

0 comentários:

Postagem mais antiga Página inicial