-
Lenguaje
Pascal
-
Descripción
En un Instituto Superior, los pagos por curso desaprobados son de 20 soles, con un cargo máximo de 120 soles independiente del número de cursos tomados. Escriba el algoritmo en el que las entradas sean el número de cursos desaprobados y la salida sea el valor del pago total que el alumno haga por los cursos desaprobados.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program PagoPorCursosDesaprobadosEnInstitutoSuperior;
uses crt;
var numero_de_cursos_desaprobados, pago_total : integer;
begin
write ('Ingresa el valor de numero de cursos desaprobados: ');
readln (numero_de_cursos_desaprobados);
pago_total := numero_de_cursos_desaprobados*20;
if pago_total>120 then
begin
pago_total := 120;
end;
writeln ('Valor de pago total: ', pago_total);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var numero_de_cursos_desaprobados, pago_total : integer;
begin
write ('Ingresa el valor de numero de cursos desaprobados: ');
readln (numero_de_cursos_desaprobados);
pago_total := numero_de_cursos_desaprobados*20;
if pago_total>120 then
begin
pago_total := 120;
end;
writeln ('Valor de pago total: ', pago_total);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.