• Lenguaje

    Pascal

  • Descripción

    El presidente de la república ha decidido estimular a todos los estudiantes de una universidad mediante la asignación de becas mensuales, para esto se tomarán en consideración los siguientes criterios:
    Para alumnos mayores de 18 años con promedio mayor o igual a 4.5, la beca será de $200.000; con promedio mayor o igual a 3.5, de $100.000; para los promedios menores de 3.5 pero mayores o iguales a 3.0, de $50.000; a los demás se les enviará una carta de invitación incitándolos a que estudien más en el próximo ciclo escolar.
    Permita identificar cuanto recibe un estudiante becado de acuerdo a su promedio académico.

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
program BecasMensualesAsignadasPorElPresidente3;
uses crt;

var beca, edad, promedio : real;
begin
    write ('Ingresa el valor de edad: ');
    readln (edad);
    write ('Ingresa el valor de promedio: ');
    readln (promedio);
    beca := 0;
    if (edad>18) and (promedio>=4.5) then
        begin
            beca := 200000;
        end;
    if (edad>18) and (promedio>=3.5) and (promedio<4.5) then
        begin
            beca := 100000;
        end;
    if (edad>18) and (promedio>=3) and (promedio<3.5) then
        begin
            beca := 50000;
        end;
    if (edad>18) and (promedio<3) then
        begin
            writeln ('Se env'#161'a carta de invitaci'#162'n a estudiar m'#160's.');
        end;
    writeln ('Valor de beca: ', beca:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.