-
Lenguaje
Pascal
-
Descripción
Un programa que te indique si puedes subir o no a la montaña rusa. Para subir debes tener una estatura mayor o igual a 1.50 metros.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program MontanaRusa;
uses crt;
var estatura_en_m : real;
begin
write ('Ingresa el valor de estatura en m: ');
readln (estatura_en_m);
if estatura_en_m>=1.5 then
begin
writeln ('S'#161' puedes subir a la monta'#164'a rusa');
end
else
begin
writeln ('No puedes subir a la monta'#164'a rusa');
end;
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var estatura_en_m : real;
begin
write ('Ingresa el valor de estatura en m: ');
readln (estatura_en_m);
if estatura_en_m>=1.5 then
begin
writeln ('S'#161' puedes subir a la monta'#164'a rusa');
end
else
begin
writeln ('No puedes subir a la monta'#164'a rusa');
end;
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.