• 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
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.