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

Búsqueda personalizada

Ejercicios de programación en Pascal (Turbo Pascal)

Inicio > Ejercicios > Pascal > Alternativa doble > 2 > Solución

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.

Programa (.PAS): Número intermedio (Solución 1)

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.

Programa (.PAS): Número intermedio (Solución 2)

(Véase el apartado 2.1 Alternativa doble ( la instrucción if ) del Curso de Pascal).