-
Lenguaje
Pascal
-
Descripción
Se requiere llenar un tanque que tiene una capacidad de 50 metros cúbicos. Haga un algoritmo que imprima las horas que tarda en llenarse dicho tanque con una manguera que tiene una capacidad de L litros de agua por minuto. Considerar la siguiente fórmula:
1m³ = 1000 litros.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program LlenadoDeUnTanque;
uses crt;
var capacidad_L, horas : integer;
begin
write ('Ingresa el valor de capacidad L: ');
readln (capacidad_L);
if 50000 mod capacidad_L=0 then
begin
horas := 50000 div capacidad_L;
end
else
begin
horas := (50000-50000 mod capacidad_L) div capacidad_L+1;
end;
writeln ('Valor de horas: ', horas);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var capacidad_L, horas : integer;
begin
write ('Ingresa el valor de capacidad L: ');
readln (capacidad_L);
if 50000 mod capacidad_L=0 then
begin
horas := 50000 div capacidad_L;
end
else
begin
horas := (50000-50000 mod capacidad_L) div capacidad_L+1;
end;
writeln ('Valor de horas: ', horas);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.