-
Lenguaje
Pascal
-
Descripción
El presidente de la república ha decidido estimular a todos los estudiantes del Instituto mediante la asignación de becas mensuales, para esto se tomarán en consideración los siguientes criterios:
a. Para alumnos mayores de 18 años con promedio mayor o igual a 9, la beca será de $2000.00; con promedio mayor o igual a 7.5, de $1000.00; para los promedios menores de 7.5 pero mayores o iguales a 6.0, de $500.00; 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.
b. A los alumnos de 18 años o menores de esta edad, con promedios mayores o iguales a 9, se les dará $3000; con promedios menores a 9 pero mayores o iguales a 8, $2000; para los alumnos con promedios menores a 8 pero mayores o iguales a 6, se les dará $100, y a los alumnos que tengan promedios menores a 6 se les enviará carta de invitación.
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
32
33
34
35
36
37
38
39
40
41
42
43
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>=9) then
begin
beca := 2000;
end;
if (edad>18) and (promedio>=7.5) and (promedio<9) then
begin
beca := 1000;
end;
if (edad>18) and (promedio>=6) and (promedio<7.5) then
begin
beca := 500;
end;
if (edad<=18) and (promedio>=9) then
begin
beca := 3000;
end;
if (edad<=18) and (promedio>=8) and (promedio<9) then
begin
beca := 2000;
end;
if (edad>18) and (promedio>=6) and (promedio<8) then
begin
beca := 100;
end;
if promedio<6 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.