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.02s memory: 4116 kB signal: -1
Brneda 6 6 6
Escribe tu Nombre Calificacion 1 Calificacion 2 Calificacion 3 El Promedio Es:6.00 Tienes 30 por ciento
./prog: attempt to read past end of Input (error #454 at 804a3c5)
-
result: Runtime error time: 0.01s memory: 4116 kB signal: -1
Brenda 7 8 9
Escribe tu Nombre Calificacion 1 Calificacion 2 Calificacion 3 El Promedio Es:8.00 Bien
./prog: attempt to read past end of Input (error #454 at 804a3c5)
-
result: Runtime error time: 0.02s memory: 4116 kB signal: -1
Brenda 7
Escribe tu Nombre Calificacion 1 Calificacion 2
./prog: attempt to read past end of Input (error #454 at 804a3c5)
-
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)



