language: Pascal (gpc) (gpc 20070904)
date: 113 days 12 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
30
31
32
33
34
35
program Practica4;
 
Var
  Op,Lados:Integer;
 
Begin
        Writeln('Opcion 1 Saber que Figura Es?');
        Writeln('Opcion 2 Que tipo de Triangulo Es?');
        Writeln('Que Opcion Deseas?');
        Readln(Op);
        If(Op =1) Then
        Begin
                Writeln('Cuantos lados tiene la Figura?');
                Readln(Lados);
        If(Lados=3)Then
                Begin
                        Writeln('Triangulo');
                End;
        If(Lados=4)Then
                Begin
                        Writeln('Cuadrado');
                End;
        If(Lados=5)Then
                Begin
                        Writeln('Pentagono');
                End;
        End;
        
        If(Op=2) Then 
                Begin
                        Writeln('Valores de los lados del Triangulo')
                End;
        Readln;
End.
 
  • upload with new input
  • result: Runtime error     time: 0.02s    memory: 4112 kB     signal: -1

    Opcion 1 Saber que Figura Es?
    Opcion 2 Que tipo de Triangulo Es?
    Que Opcion Deseas?
    
    ./prog: attempt to read past end of Input (error #454 at 804a0de)