Rollos de alambre de 500 300 y 75 pies en lenguaje Pascal

Lenguaje

Pascal
Descripción

Un distribuidor de material eléctrico vende alambre en rollos de 500 300 y 75 pies.
Describa un algoritmo que pida al usuario una longitud total de alambre en pies que se requiere y envíe como salida el número de rollos de alambre de 500 300 y 75 pies y el número de pies que faltan para completar el último rollo.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

program RollosDeAlambreDe500300Y75Pies;

uses crt;

var longitud_de_alambre, pies_faltantes, rollos_de_300, rollos_de_500, rollos_de_75 : integer;

begin

    write ('Ingresa el valor de longitud de alambre: ');

    readln (longitud_de_alambre);

    pies_faltantes := longitud_de_alambre mod 500;

    rollos_de_500 := (longitud_de_alambre-pies_faltantes) div 500;

    rollos_de_300 := (pies_faltantes-pies_faltantes mod 300) div 300;

    pies_faltantes := pies_faltantes mod 300;

    rollos_de_75 := (pies_faltantes-pies_faltantes mod 75) div 75;

    pies_faltantes := pies_faltantes mod 75;

    writeln ('Valor de pies faltantes: ', pies_faltantes);

    writeln ('Valor de rollos de 300: ', rollos_de_300);

    writeln ('Valor de rollos de 500: ', rollos_de_500);

    writeln ('Valor de rollos de 75: ', rollos_de_75);

    writeln;

    write ('Presiona una tecla para terminar . . . ');

    readkey;

end.