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
Program Project3;
 
 
Var     Nom,Carrera,Cuatr:string;
 
        Cal1,Cal2,Cal3,Prom:Real;
 
 
Begin
 
        Writeln('Escribe tu Promedio');
                Readln(Prom);
        Writeln('El Promedio Es:',Prom);
        If(Prom>=6)and(Prom<=7)Then
                Begin
                        Writeln('Tienes 30 por ciento');
                End;
        If(Prom>=8)and(Prom<=9)then
                Begin
                        Writeln('Bien');
                End;
        If(Prom=10)then
                Begin
                        Writeln('Excelente');
                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.
  
• # 2:   hide show   clone   input   104 days 5 hours ago    Runtime error

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

  input:

  6

  output:

  Escribe tu Promedio
  El Promedio Es: 6.000000000000000e+00
  Tienes 30 por ciento
  

  stderr:

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

• # 1:   hide show   clone   input   104 days 5 hours ago    Runtime error

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

  input: no
  output:

  Escribe tu Promedio
  

  stderr:

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