language: Pascal (gpc) (gpc 20070904)
date: 105 days 5 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 Project3;
 
 
Var     Nom,Carrera,Cuatr:string;
 
        Cal1,Cal2,Cal3,Prom:Real;
 
 
Begin
 
        Writeln('Escribe tu Nombre');
                Readln(Nom);
        Writeln('Calificacion 1');
                Readln(Cal1);
        Writeln('Calificacion 2');
                Readln(Cal2);
        Writeln('Calificacion 3');
                Readln(Cal3);
                Prom:=(Cal1+Cal2+Cal3)/3;
                        Writeln('El Promedio Es:',Prom:2:2);
        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.
 
  • upload with new input
  • result: Runtime error     time: 0.01s    memory: 4116 kB     signal: -1

    Escribe tu Nombre
    Calificacion 1
    
    ./prog: attempt to read past end of Input (error #454 at 804a3c5)