error con un else
Publicado por sergio (2 intervenciones) el 06/03/2018 20:17:15
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
program Project1;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,{$ENDIF}{$ENDIF}
Classes
{ you can add units after this };
var pL, sL, tL: Real;
begin
writeLn('Ingrese el primer lado'); ReadLn(pL);
writeLn('Ingrese el Segundo lado'); ReadLn(sL);
writeLn('Ingrese el Tercer lado'); ReadLn(tL);
if((pL=sL) and (sL=tL))then
writeLn('El triangulo es Equilatero')
else if((pL=sL) or (pL=tL) or (sL=tL)) then
writeLn('El triangulo es Isoceles');
else ((pL <>sl) or (pL <>tL) or (tL <>sL))
writeLn('EL triangul es escaleno');
ReadLn;
end.{ Realizar un programa que, proporcionada tres longitudes, diga si forman un triángulo
tengo un error en el codigo pero no se que sera, Gracias por la ayuda }Valora esta pregunta
0