Ejercicios de programación en Pascal (Turbo Pascal)
C/C++/C# HTML Java JavaScript Linux PHP Python Swift
 Inicio > Ejercicios > Pascal > Alternativa doble > 2 > Solución

Solución del Ejercicio 2 - Número intermedio (Alternativa doble - Pascal)
program AAD12021;

uses Crt;

var N1, N2, N3 : Integer;

begin
   ClrScr;
   Write( 'Introduzca primer numero (entero): ' );
   ReadLn( N1 );
   Write( 'Introduzca segundo numero (entero): ' );
   ReadLn( N2 );
   Write( 'Introduzca tercer numero (entero): ' );
   ReadLn( N3 );

   if ( N2 < N3 ) and ( N2 > N1 ) then
      Write( N2, ' SI ES MENOR QUE ', N3, ' Y MAYOR QUE ', N1 )
   else
      Write( N2, ' NO ES MENOR QUE ', N3, ' Y MAYOR QUE ', N1 );
end.

Una segunda solución es:
program AAD12022;

uses Crt;

var N1, N2, N3 : Integer;

begin
   ClrScr;
   Write( 'Introduzca primer numero (entero): ' );
   ReadLn( N1 );
   Write( 'Introduzca segundo numero (entero): ' );
   ReadLn( N2 );
   Write( 'Introduzca tercer numero (entero): ' );
   ReadLn( N3 );

   Write( N2 );

   if ( N2 < N3 ) and ( N2 > N1 ) then
      Write( ' SI ' )
   else
      Write( ' NO ' );

   Write( 'ES MENOR QUE ', N3, ' Y MAYOR QUE ', N1 );
end.

(Véase el apartado 2.1 Alternativa doble ( la instrucción if ) del Curso de Pascal).
 Páginas relacionadas
  · Solución del ejercicio en pseudocódigo, ordinograma y lenguaje C.
  · Instrucción alternativa doble (if then else) en la sintaxis del Pascal.
  · Listado de ejercicios de programación resueltos en diferentes lenguajes.