-
Lenguaje
Pascal
-
Descripción
Lea el salario mensual de un trabajador y con esta cifra calcule y muestre descuento que se le hace por salud (4%) y pension (5%).
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program DescuentosPorSaludYPension;
uses crt;
var descuento_por_pension, descuento_por_salud, descuentos, salario_mensual, total : real;
begin
write ('Ingresa el valor de salario mensual: ');
readln (salario_mensual);
descuento_por_salud := salario_mensual*0.04;
descuento_por_pension := salario_mensual*0.05;
descuentos := descuento_por_salud+descuento_por_pension;
total := salario_mensual-descuentos;
writeln ('Valor de descuento por pension: ', descuento_por_pension:0:6);
writeln ('Valor de descuento por salud: ', descuento_por_salud:0:6);
writeln ('Valor de descuentos: ', descuentos:0:6);
writeln ('Valor de total: ', total:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var descuento_por_pension, descuento_por_salud, descuentos, salario_mensual, total : real;
begin
write ('Ingresa el valor de salario mensual: ');
readln (salario_mensual);
descuento_por_salud := salario_mensual*0.04;
descuento_por_pension := salario_mensual*0.05;
descuentos := descuento_por_salud+descuento_por_pension;
total := salario_mensual-descuentos;
writeln ('Valor de descuento por pension: ', descuento_por_pension:0:6);
writeln ('Valor de descuento por salud: ', descuento_por_salud:0:6);
writeln ('Valor de descuentos: ', descuentos:0:6);
writeln ('Valor de total: ', total:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.