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.01s memory: 4112 kB signal: -1
2
Opcion 1 Saber que Figura Es? Opcion 2 Que tipo de Triangulo Es? Que Opcion Deseas? Valores de los lados del Triangulo
./prog: attempt to read past end of Input (error #454 at 804a0de)
-
result: Runtime error time: 0.01s memory: 4112 kB signal: -1
1 5
Opcion 1 Saber que Figura Es? Opcion 2 Que tipo de Triangulo Es? Que Opcion Deseas? Cuantos lados tiene la Figura? Pentagono
./prog: attempt to read past end of Input (error #454 at 804a0de)
-
result: Runtime error time: 0.01s memory: 4112 kB signal: -1
1
Opcion 1 Saber que Figura Es? Opcion 2 Que tipo de Triangulo Es? Que Opcion Deseas? Cuantos lados tiene la Figura?
./prog: attempt to read past end of Input (error #454 at 804a0de)
-
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)



