-
Lenguaje
Pascal
-
Descripción
Determinar cuánto dinero ahorra una persona en un año si considera que cada semana ahorra 15% de su sueldo (considere cuatro semanas por mes y que no cambia el sueldo).
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 AhorroDel15DelSueldo;
uses crt;
var ahorros, meses_por_ano, semanas_por_mes, sueldo : real;
begin
write ('Ingresa el valor de sueldo: ');
readln (sueldo);
semanas_por_mes := 4;
meses_por_ano := 12;
ahorros := sueldo*0.15+semanas_por_mes*meses_por_ano;
writeln ('Valor de ahorros: ', ahorros:0:6);
writeln ('Valor de meses por ano: ', meses_por_ano:0:6);
writeln ('Valor de semanas por mes: ', semanas_por_mes:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var ahorros, meses_por_ano, semanas_por_mes, sueldo : real;
begin
write ('Ingresa el valor de sueldo: ');
readln (sueldo);
semanas_por_mes := 4;
meses_por_ano := 12;
ahorros := sueldo*0.15+semanas_por_mes*meses_por_ano;
writeln ('Valor de ahorros: ', ahorros:0:6);
writeln ('Valor de meses por ano: ', meses_por_ano:0:6);
writeln ('Valor de semanas por mes: ', semanas_por_mes:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.