Ejemplo de division pascal

Aquí muestro un ejemplo en turbo pascal de división en el cual se introducen dos valores de los cuales se divide el primero entre en segundo, mostrando el residuo o la sobra de la division tambien.

Program P3AE4 (input,output);

uses

 crt; 

Var

 num1, num2, total,x: Integer;

 

Begin

 

  writeln('Suma');

  writeln('Ingrese el dividendo:');

  readln(num1);

  writeln('Ingrese el divisor:');

  readln(num2);

 

  total:= num1 div num2;

  x:= num1 mod num2;

  writeln('El total de la division es: ',total);

  writeln('sobrando: ',x); 

  

 readkey;

End.

Descargar código:

Link

Turbo Pascal