-
Lenguaje
Pascal
-
Descripción
Permita ingresar el peso de una persona, si el peso es menor de 45 kg debe mostrar "Aumentar calorías", si está entre 45 kg y 65 kg debe mostrar "Mantener calorías". Caso contrario debe mostrar "Reducir calorías".
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program Calorias;
uses crt;
var peso : integer;
begin
write ('Ingresa el valor de peso: ');
readln (peso);
if peso<45 then
begin
writeln ('Aumentar calor'#161'as');
end;
if (peso>=45) and (peso<=65) then
begin
writeln ('Mantener calor'#161'as');
end;
if peso>65 then
begin
writeln ('Reducir calor'#161'as');
end;
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var peso : integer;
begin
write ('Ingresa el valor de peso: ');
readln (peso);
if peso<45 then
begin
writeln ('Aumentar calor'#161'as');
end;
if (peso>=45) and (peso<=65) then
begin
writeln ('Mantener calor'#161'as');
end;
if peso>65 then
begin
writeln ('Reducir calor'#161'as');
end;
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.