-
Lenguaje
Pascal
-
Descripción
Leer una cantidad entera y escriba cuantos billetes de 500, 200 y 100 debe dar.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program BilletesDe500200Y100;
uses crt;
var billetes_de_100, billetes_de_200, billetes_de_500, cantidad, residuo : integer;
begin
write ('Ingresa el valor de cantidad: ');
readln (cantidad);
residuo := cantidad;
billetes_de_500 := (residuo-residuo mod 500) div 500;
residuo := residuo mod 500;
billetes_de_200 := (residuo-residuo mod 200) div 200;
residuo := residuo mod 200;
billetes_de_100 := (residuo-residuo mod 100) div 100;
residuo := residuo mod 100;
writeln ('Valor de billetes de 100: ', billetes_de_100);
writeln ('Valor de billetes de 200: ', billetes_de_200);
writeln ('Valor de billetes de 500: ', billetes_de_500);
writeln ('Valor de residuo: ', residuo);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var billetes_de_100, billetes_de_200, billetes_de_500, cantidad, residuo : integer;
begin
write ('Ingresa el valor de cantidad: ');
readln (cantidad);
residuo := cantidad;
billetes_de_500 := (residuo-residuo mod 500) div 500;
residuo := residuo mod 500;
billetes_de_200 := (residuo-residuo mod 200) div 200;
residuo := residuo mod 200;
billetes_de_100 := (residuo-residuo mod 100) div 100;
residuo := residuo mod 100;
writeln ('Valor de billetes de 100: ', billetes_de_100);
writeln ('Valor de billetes de 200: ', billetes_de_200);
writeln ('Valor de billetes de 500: ', billetes_de_500);
writeln ('Valor de residuo: ', residuo);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.