-
Lenguaje
Pascal
-
Descripción
Determine si una persona se declara culpable o inocente, si es culpable ingresara 0 si es inocente ingresara 1, colocar mensaje de "Irá a cárcel" o "Irá a su casa" respectivamente, en caso de otra respuesta colocar mensaje "Casa por cárcel".
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 CulpableOInocente;
uses crt;
var respuesta : integer;
begin
write ('Ingresa el valor de respuesta: ');
readln (respuesta);
if respuesta=0 then
begin
writeln ('Ir'#160' a c'#160'rcel');
end;
if respuesta=1 then
begin
writeln ('Ir'#160' a su casa');
end;
if (respuesta<>0) and (respuesta<>1) then
begin
writeln ('Casa por c'#160'rcel');
end;
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var respuesta : integer;
begin
write ('Ingresa el valor de respuesta: ');
readln (respuesta);
if respuesta=0 then
begin
writeln ('Ir'#160' a c'#160'rcel');
end;
if respuesta=1 then
begin
writeln ('Ir'#160' a su casa');
end;
if (respuesta<>0) and (respuesta<>1) then
begin
writeln ('Casa por c'#160'rcel');
end;
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.