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