-
Lenguaje
Pascal
-
Descripción
En una foto tienda cobra por el revelado de un rollo 1,5 soles por cada foto realice un algoritmo que determine el monto a pagar por un revelado sabiendo que adicionalmente cobran el IGV (18%).
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 ReveladoDeUnRollo;
uses crt;
var IGV, fotos_por_rollo, monto_a_pagar, subtotal : real;
begin
write ('Ingresa el valor de fotos por rollo: ');
readln (fotos_por_rollo);
subtotal := fotos_por_rollo*1.5;
IGV := subtotal*0.18;
monto_a_pagar := subtotal+IGV;
writeln ('Valor de IGV: ', IGV:0:6);
writeln ('Valor de monto a pagar: ', monto_a_pagar:0:6);
writeln ('Valor de subtotal: ', subtotal:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var IGV, fotos_por_rollo, monto_a_pagar, subtotal : real;
begin
write ('Ingresa el valor de fotos por rollo: ');
readln (fotos_por_rollo);
subtotal := fotos_por_rollo*1.5;
IGV := subtotal*0.18;
monto_a_pagar := subtotal+IGV;
writeln ('Valor de IGV: ', IGV:0:6);
writeln ('Valor de monto a pagar: ', monto_a_pagar:0:6);
writeln ('Valor de subtotal: ', subtotal:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.