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
program Project2;
 
Var Op,Lado,a,b,ResMul,ResArea,ResPer: Integer;
Begin
        Writeln ('Opcion 1= Area y Perimetro');
        Writeln( 'Opcion 2= Tablas de Multiplicar');
        Writeln ('Que Opcion Desea?');
        Readln (Op);
        If (Op=1) Then
                Begin
                        Writeln('Ingrese el valor del Lado');
                                Readln(Lado);
                        Writeln('Opcion 3 = Calcular Area');
                        Writeln('Opcion 4 = Calcular Perimetro');
                        Writeln('Que Opcion Desea?');
                        Readln (Op);
                If (Op=3) Then
                        Begin
                                ResArea:=Lado*Lado;
                                Writeln('El Area es ',ResArea);
                                Readln;
                        End;    
                If (Op=4) Then
                        Begin
                                ResPer:=Lado*4;
                                Writeln('El Perimetro es ',ResPer);
                                Readln;
                        End;
                End;
        If (Op=2) Then
                Begin
                        Writeln('Ingrese el numero a Multiplicar');
                        Readln(a); 
                        
                                
                                For b:=1 To 10 Do
                                ResMul:= a*b;
                                Writeln(a,b);
                                Readln;
                                
                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 21 hours ago    Runtime error

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

  input:

  2
  3

  output:

  Opcion 1= Area y Perimetro
  Opcion 2= Tablas de Multiplicar
  Que Opcion Desea?
  Ingrese el numero a Multiplicar
  310
  

  stderr:

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

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

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

  input:

  2

  output:

  Opcion 1= Area y Perimetro
  Opcion 2= Tablas de Multiplicar
  Que Opcion Desea?
  Ingrese el numero a Multiplicar
  

  stderr:

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

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

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

  input: no
  output:

  Opcion 1= Area y Perimetro
  Opcion 2= Tablas de Multiplicar
  Que Opcion Desea?
  

  stderr:

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