• 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
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.