-
Lenguaje
Pascal
-
Descripción
Haga el cálculo del impuesto a la renta, si es que su ingreso anual supera las 7 UIT (UIT=S/. 4150) deberá pagar el 15 % del excedente + el 10% del total, y si no supera las 7 UIT deberá pagar solo el 10% del monto anual.
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 ImpuestoALaRenta;
uses crt;
var UIT, impuesto, ingreso_anual : real;
begin
write ('Ingresa el valor de ingreso anual: ');
readln (ingreso_anual);
UIT := 4150;
impuesto := ingreso_anual*0.1;
if ingreso_anual>UIT*7 then
begin
impuesto := impuesto+(UIT*7-ingreso_anual)*0.15;
end;
writeln ('Valor de UIT: ', UIT:0:6);
writeln ('Valor de impuesto: ', impuesto:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var UIT, impuesto, ingreso_anual : real;
begin
write ('Ingresa el valor de ingreso anual: ');
readln (ingreso_anual);
UIT := 4150;
impuesto := ingreso_anual*0.1;
if ingreso_anual>UIT*7 then
begin
impuesto := impuesto+(UIT*7-ingreso_anual)*0.15;
end;
writeln ('Valor de UIT: ', UIT:0:6);
writeln ('Valor de impuesto: ', impuesto:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.