-
Lenguaje
Pascal
-
Descripción
Una fábrica de fósforos realiza el conteo de la cantidad producida al día, sabiendo que 40 unidades de éstos entran en una caja y 12 cajas hacen un paquete. Ingrese desde teclado una cantidad de fósforos, luego con eso calcule cuantas cajas, cuantos paquetes, cuantas cajas sobrantes y cuantos fósforos.
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 PaquetesYCajasDeFosforos;
uses crt;
var cajas, cajas_sobrantes, fosforos, fosforos_sobrantes, paquetes : integer;
begin
write ('Ingresa el valor de fosforos: ');
readln (fosforos);
fosforos_sobrantes := fosforos mod 40;
cajas := (fosforos-fosforos_sobrantes) div 40;
cajas_sobrantes := cajas mod 12;
paquetes := (cajas-cajas_sobrantes) div 12;
writeln ('Valor de cajas: ', cajas);
writeln ('Valor de cajas sobrantes: ', cajas_sobrantes);
writeln ('Valor de fosforos sobrantes: ', fosforos_sobrantes);
writeln ('Valor de paquetes: ', paquetes);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var cajas, cajas_sobrantes, fosforos, fosforos_sobrantes, paquetes : integer;
begin
write ('Ingresa el valor de fosforos: ');
readln (fosforos);
fosforos_sobrantes := fosforos mod 40;
cajas := (fosforos-fosforos_sobrantes) div 40;
cajas_sobrantes := cajas mod 12;
paquetes := (cajas-cajas_sobrantes) div 12;
writeln ('Valor de cajas: ', cajas);
writeln ('Valor de cajas sobrantes: ', cajas_sobrantes);
writeln ('Valor de fosforos sobrantes: ', fosforos_sobrantes);
writeln ('Valor de paquetes: ', paquetes);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.