-
Lenguaje
Pascal
-
Descripción
El presidente de la república ha decidido estimular a todos los estudiantes del tecnológico 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 90, la beca será de $2500.00; con promedio mayor o igual a 80, de $2000.00; para los promedios menores de 80 pero mayores o iguales a 70, de $1500.00; a los demás se les enviará una carta invitándolos a que estudien más en el próximo ciclo escolar.
A los alumnos de 18 años o menores de esta edad, con promedios mayores o iguales a 90, se les dará $3000; con promedios menores a 90 pero mayores o iguales a 75, $2500; para los alumnos con promedios menores a 75 pero mayores o iguales a 70, se les dará $2000, y a los alumnos que tengan promedios menores a 70 se les enviará carta de invitación para que estudien más en el próximo ciclo escolar.
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>=90) then
begin
beca := 2500;
end;
if (edad>18) and (promedio>=80) and (promedio<90) then
begin
beca := 2000;
end;
if (edad>18) and (promedio>=70) and (promedio<80) then
begin
beca := 1500;
end;
if (edad<=18) and (promedio>=90) then
begin
beca := 3000;
end;
if (edad<=18) and (promedio>=75) and (promedio<90) then
begin
beca := 2500;
end;
if (edad>18) and (promedio>=70) and (promedio<75) then
begin
beca := 2000;
end;
if promedio<70 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.