language: Pascal (gpc) (gpc 20070904)
date: 112 days 11 hours ago
link:
visibility: public 
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
28
29

program ProgramaLados;
 
Var
  LadoUno,LadoDos,LadoTres:Integer;
 
Begin
        Writeln('Escribe Lado 1');
                Readln(LadoUno);
        Writeln('Escribe Lado 2');
                Readln(LadoDos);
        Writeln('Escribe Lado 3');
                Readln(LadoTres);
        
           If(LadoUno=4) and (LadoDos=4) and (LadoTres=4) Then
                Begin
                        Writeln('Triangulo Equilatero (Todos los Lados Iguales)');
                End;
           If(LadoUno =4) and (LadoDos=4) and (LadoTres=5) Then
                Begin
                        Writeln('Triangulo Isoceles (Dos Lados Iguales y uno Distinto)');
                End;
 
           If(LadoUno =4) and (LadoDos=5) and (LadoTres=6) Then
                Begin
                        Writeln('Triangulo Escaleno (Todos sus lado Desiguales!!)');
                End;
        Readln;
End.
 
  • upload with new input
  • # 4:   show   clone   input   112 days 11 hours ago    Runtime error
  • # 3:   show   clone   input   112 days 11 hours ago    Runtime error
  • # 2:   show   clone   input   112 days 11 hours ago    Runtime error
  • # 1:   hide   clone   input   112 days 11 hours ago

    result: Runtime error     time: 0.01s    memory: 4112 kB     signal: -1 

    Escribe Lado 1

    ./prog: attempt to read past end of Input (error #454 at 804a1a5)