-
Lenguaje
Pascal
-
Descripción
Determinar si una persona X, es apta para entrar al equipo de voleibol, teniendo en cuenta que al equipo sólo se entra cumpliendo estas tres condiciones:
- Ser mayor de 18 años.
- Pesar entre 70 y 90 kilos.
- Medir más de 1.87 mts. de altura.
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 CondicionesParaEntrarAlEquipoDeVoleibol;
uses crt;
var altura_en_m, edad, peso_en_kg : real;
begin
write ('Ingresa el valor de altura en m: ');
readln (altura_en_m);
write ('Ingresa el valor de edad: ');
readln (edad);
write ('Ingresa el valor de peso en kg: ');
readln (peso_en_kg);
if (edad>18) and (peso_en_kg>=70) and (peso_en_kg<=90) and (altura_en_m>1.87) then
begin
writeln ('Es apto para entrar al equipo.');
end
else
begin
writeln ('No es apto para entrar al equipo.');
end;
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var altura_en_m, edad, peso_en_kg : real;
begin
write ('Ingresa el valor de altura en m: ');
readln (altura_en_m);
write ('Ingresa el valor de edad: ');
readln (edad);
write ('Ingresa el valor de peso en kg: ');
readln (peso_en_kg);
if (edad>18) and (peso_en_kg>=70) and (peso_en_kg<=90) and (altura_en_m>1.87) then
begin
writeln ('Es apto para entrar al equipo.');
end
else
begin
writeln ('No es apto para entrar al equipo.');
end;
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.