Inicio > Ejercicios > Pascal > Alternativa simple > 2 > Solución Solución del Ejercicio 2 - Media aritmética (Alternativa simple - Pascal) program AAS12021; uses Crt; var A, B : Integer; begin    ClrScr;    Write( 'Introduzca primer numero (entero): ' );    ReadLn( A );    Write( 'Introduzca segundo numero (entero): ' );    ReadLn( B );    if ( A > 0 ) and ( B > 0 ) then       Write( ( A + B ) / 2 ) end. Programa (.PAS): Media aritmética (Véase el apartado 2.2 Alternativa simple ( de nuevo 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 simple (if then) en la sintaxis del Pascal.   · Listado de ejercicios de programación resueltos en diferentes lenguajes.