Ver Mensaje Individual
  #4  
Antiguo 31-01-2008
Avatar de ixMike
ixMike ixMike is offline
Miembro
 
Registrado: feb 2004
Posts: 1.151
Reputación: 22
ixMike Va por buen camino
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
Responder Con Cita