División con restas sucesivas

[ixMike]

Hola.

Sin olvidar lo que ha dicho el amigo dec (por cierto, es "muto poprio" ), te doy mi posible solución.

Código Delphi [-]
var
  Dividendo, Divisor, Cociente, Resto: Integer;
begin
  Dividendo:=100;  //el que sea, 100 por ejemplo
  Divisor:=3;  //el que sea, 3 por ejemplo
  Cociente:=1;
  Resto:=Dividendo;
  While Resto>Divisor do
    begin
    Inc(Cociente);
    Resto:=Resto-Divisor;
    end;
end;

Espero que te sea de ayuda.


Repásate la guía de estilo, y hasta la próxima