-
Lenguaje
Pascal
-
Descripción
Una guardaría tiene 400 niños. El propietario desea saber cual es el consumo de pañales diarios. Los niños de 1 año consumen 6 pañales diarios, los de dos años consumen 4 pañales y los de 3 año 2 pañales diarios. Calcular el consumo de pañal.
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 ConsumoDePanales;
uses crt;
var cantidad_de_ninos_de_dos_anos, cantidad_de_ninos_de_tres_anos, cantidad_de_ninos_de_un_ano, consumo_de_panales : integer;
begin
write ('Ingresa el valor de cantidad de ninos de dos anos: ');
readln (cantidad_de_ninos_de_dos_anos);
write ('Ingresa el valor de cantidad de ninos de tres anos: ');
readln (cantidad_de_ninos_de_tres_anos);
write ('Ingresa el valor de cantidad de ninos de un ano: ');
readln (cantidad_de_ninos_de_un_ano);
consumo_de_panales := cantidad_de_ninos_de_un_ano*6+cantidad_de_ninos_de_dos_anos*4+cantidad_de_ninos_de_tres_anos*2;
writeln ('Valor de consumo de panales: ', consumo_de_panales);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var cantidad_de_ninos_de_dos_anos, cantidad_de_ninos_de_tres_anos, cantidad_de_ninos_de_un_ano, consumo_de_panales : integer;
begin
write ('Ingresa el valor de cantidad de ninos de dos anos: ');
readln (cantidad_de_ninos_de_dos_anos);
write ('Ingresa el valor de cantidad de ninos de tres anos: ');
readln (cantidad_de_ninos_de_tres_anos);
write ('Ingresa el valor de cantidad de ninos de un ano: ');
readln (cantidad_de_ninos_de_un_ano);
consumo_de_panales := cantidad_de_ninos_de_un_ano*6+cantidad_de_ninos_de_dos_anos*4+cantidad_de_ninos_de_tres_anos*2;
writeln ('Valor de consumo de panales: ', consumo_de_panales);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.