Ejercicios de programación en Pascal (Turbo Pascal)
C/C++/C# HTML Java JavaScript Linux PHP Python Swift
 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.
  · Instrucción alternativa simple (if then) en la sintaxis del Pascal.
  · Listado de ejercicios de programación resueltos en diferentes lenguajes.