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. 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).

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