source code clone download copy to clipboard report bug / make suggestion

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
program Practica4;
 
Var
  Op,Lados,LadoUno,LadoDos,LadoTres: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;
                        If(Lados=6)Then
                                Begin
                                        Writeln('Hexagono');
                                End;
                        If(Lados=7)Then
                                Begin
                                        Writeln('Heptagono');
                                End;
                        If(Lados=8)Then
                                Begin
                                        Writeln('Octagono');
                                End;
                        If(Lados=9)Then
                                Begin
                                        Writeln('Nonagono');
                                End;
                        If(Lados=10)Then
                                Begin
                                        Writeln('Decagono');
                                End;
        
                End;
        If(Op=2) Then 
                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;
                End;
        Readln;
End.
 

clone download copy to clipboard

• upload with new input
  You have reached a limit of free submissions this month.
  You cannot send submissions this month anymore because of exceeding your monthly limit. Please recharge your account.
  
• # 3:   hide show   clone   input   112 days 10 hours ago    Runtime error

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

  input:

  1
  9

  output:

  Opcion 1 Saber que Figura Es?
  Opcion 2 Que tipo de Triangulo Es?
  Que Opcion Deseas?
  Cuantos lados tiene la Figura?
  Nonagono
  

  stderr:

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

• # 2:   hide show   clone   input   112 days 10 hours ago    Runtime error

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

  input:

  1

  output:

  Opcion 1 Saber que Figura Es?
  Opcion 2 Que tipo de Triangulo Es?
  Que Opcion Deseas?
  Cuantos lados tiene la Figura?
  

  stderr:

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

• # 1:   hide show   clone   input   112 days 10 hours ago    Runtime error

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

  input: no
  output:

  Opcion 1 Saber que Figura Es?
  Opcion 2 Que tipo de Triangulo Es?
  Que Opcion Deseas?
  

  stderr:

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