Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Promedio con aprobación
//fpc 3.0.0 //Learning to program using Pascal program premonicion; var n1,n2,n3,p:real; begin read(n1,n2,n3); p:=(n1+n2+n3)/3; writeln('Tu promedio de notas es ',p:0:1); if p>=4 then begin write('Felicitaciones, has aprobado el curso'); end else write('Lo sentimos, has reprobado este curso'); end.
run
|
edit
|
history
|
help
0
Tri 1.0
Huong11a2@
aefrt
6
LETICIA VIEIRA TEIXEIRA 600618795
Naloga 8: 10.9.2008
For10
NOT a String in Pascal
08 Ariketa REPEAT
LewisCableCompanyPasProgramme