EXAMEN DE II UNIDAD RESUELTO xD
EXAMEN DE FUNDAMENTOS !! HACKEADO !!
Ke onda Raza Aki les Dejo REsuelto El problema del Examen
para ke todos saken 10 xD un saludo al “O” y a Segundo “PPA” .::KSN::. << 3D50N >>
Program Calificacion_General;
Uses Crt;
Var
Cal1:Real;
Cal2:Real;
Cal3:Real;
Prom:Real;
Nombre:String[20]
NumAl:Integer[50]
ProGral:Real
Begin
ClrScr;
Num:=0
ProGral:=0
Repeat
Numal:=Numal+1;
Write(’Cual es Tu nombre”);
Read(Nombre);
Writeln;
Write(Que sacaste en la 1 Unidad’);
Read(calif1);
Writeln;
Write(Que sacaste en la 2 Unidad’);
Read(calif2);
Writeln;
Weite(Que sacaste en la 3 Unidad’);
Read(calif3 );
Writeln;
Prom:= Calif1+Calif2+Calif3;
ProGral:=Progral+Prom;
until Numal => 50
End.