-
Lenguaje
Pascal
-
Descripción
Un empleado desea saber cuánto debe pagar de impuestos. Su sueldo es de $1500 mensuales. Debe pagar retención del 10% del total de ingresos anuales y 15% de otros impuestos sobre los ingresos anuales.
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 PagoDeImpuestos;
uses crt;
var ingresos_anuales, otros_impuestos, pago_de_impuestos, retencion, sueldo : real;
begin
sueldo := 1500;
ingresos_anuales := sueldo*12;
retencion := ingresos_anuales*0.1;
otros_impuestos := ingresos_anuales*0.15;
pago_de_impuestos := retencion+otros_impuestos;
writeln ('Valor de ingresos anuales: ', ingresos_anuales:0:6);
writeln ('Valor de otros impuestos: ', otros_impuestos:0:6);
writeln ('Valor de pago de impuestos: ', pago_de_impuestos:0:6);
writeln ('Valor de retencion: ', retencion:0:6);
writeln ('Valor de sueldo: ', sueldo:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var ingresos_anuales, otros_impuestos, pago_de_impuestos, retencion, sueldo : real;
begin
sueldo := 1500;
ingresos_anuales := sueldo*12;
retencion := ingresos_anuales*0.1;
otros_impuestos := ingresos_anuales*0.15;
pago_de_impuestos := retencion+otros_impuestos;
writeln ('Valor de ingresos anuales: ', ingresos_anuales:0:6);
writeln ('Valor de otros impuestos: ', otros_impuestos:0:6);
writeln ('Valor de pago de impuestos: ', pago_de_impuestos:0:6);
writeln ('Valor de retencion: ', retencion:0:6);
writeln ('Valor de sueldo: ', sueldo:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.