-
Lenguaje
Pascal
-
Descripción
Ingrese la cantidad de respuestas correctas e incorrectas en un examen de admisión, determine el puntaje alcanzado por un postulante, si se sabe que cada respuesta correcta vale 4 puntos, la incorrecta 1 punto en contra y en blanco cero puntos.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program PuntajeDeUnExamen;
uses crt;
var puntaje, respuestas_correctas, respuestas_incorrectas : integer;
begin
write ('Ingresa el valor de respuestas correctas: ');
readln (respuestas_correctas);
write ('Ingresa el valor de respuestas incorrectas: ');
readln (respuestas_incorrectas);
puntaje := respuestas_correctas*4-respuestas_incorrectas;
writeln ('Valor de puntaje: ', puntaje);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var puntaje, respuestas_correctas, respuestas_incorrectas : integer;
begin
write ('Ingresa el valor de respuestas correctas: ');
readln (respuestas_correctas);
write ('Ingresa el valor de respuestas incorrectas: ');
readln (respuestas_incorrectas);
puntaje := respuestas_correctas*4-respuestas_incorrectas;
writeln ('Valor de puntaje: ', puntaje);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.