VAR
X,Y,Z: real;
INICIO
imprima('Entre com os tres valores do lado do triangulo');
leia(X,Y,Z);
se (X<Y+Z) e (Y<X+Z) e (Z<Y+X) então
se (X=Y) e (X=Z) então
imprima('Triangulo equilatero');
senao se (X=Y) ou (X=Z) ou (Y=z) então
imprima('Triangulo Isoceles');
senao
imprima(´Triangulo escaleno');
fimse;
fimse;
senao
imprima('Nao é triangulo');
fimse
FIM.









Se importaria em watchar tambem?? (:
--
sorry bad english[?] Oh rly?
--
SEE YOU, SPACE COWBOY...
--
----
Training is nothing, will is everything...
Previous Page12345...Next Page