Solución del Ejercicio 2 - División entera (Entrada y salida estándar - Pascal)

	Búsqueda personalizada

Ejercicios de programación en Pascal (Turbo Pascal)

Inicio > Ejercicios > Pascal > Entrada y salida estándar > 2 > Solución

Solución del Ejercicio 2 - División entera (Entrada y salida estándar - Pascal)

program AES11021;

uses Crt;

var Dividendo, Divisor, Cociente, Resto : Integer;

begin
ClrScr;
   Write( 'Introduzca dividendo (entero): ' );
   ReadLn( Dividendo );
   Write( 'Introduzca divisor (entero): ' );
   ReadLn( Divisor );

   Cociente := Dividendo div Divisor;
   Resto := Dividendo mod Divisor;

   Write( Dividendo, ' div ', Divisor, ' = ',
          Cociente, ' ( Resto = ', Resto, ' )' );
end.

Programa (.PAS): División entera (Solución 1)

Una segunda solución es:

program AES11022;

uses Crt;

var Dividendo, Divisor : Integer;

begin
ClrScr;
   Write( 'Introduzca dividendo (entero): ' );
   ReadLn( Dividendo );
   Write( 'Introduzca divisor (entero): ' );
   ReadLn( Divisor );

   Write( Dividendo, ' div ', Divisor, ' = ',
          Dividendo div Divisor, ' ( Resto = ',
          Dividendo mod Divisor, ' )' );
end.

Programa (.PAS): División entera (Solución 2)

(Véase el apartado 1.9 Entrada y salida estándar del Curso de Pascal).