-
Lenguaje
Pascal
-
Descripción
Calcular el aporte del empleador a Essalud (9% del sueldo) y el descuento por AFP (10% del sueldo).
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program EssaludYAfp;
uses crt;
var aporte_a_Essalud, descuento_por_AFP, sueldo : real;
begin
write ('Ingresa el valor de sueldo: ');
readln (sueldo);
aporte_a_Essalud := sueldo*0.09;
descuento_por_AFP := sueldo*0.1;
writeln ('Valor de aporte a Essalud: ', aporte_a_Essalud:0:6);
writeln ('Valor de descuento por AFP: ', descuento_por_AFP:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var aporte_a_Essalud, descuento_por_AFP, sueldo : real;
begin
write ('Ingresa el valor de sueldo: ');
readln (sueldo);
aporte_a_Essalud := sueldo*0.09;
descuento_por_AFP := sueldo*0.1;
writeln ('Valor de aporte a Essalud: ', aporte_a_Essalud:0:6);
writeln ('Valor de descuento por AFP: ', descuento_por_AFP:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.