Problema con restas sucesivas

[[seoane]]

Vamos a ver si llegamos a la solución juntos:

Lo primero es darte cuenta de que existen mas tipos de bucles que el for, por ejemplo el while, que en este caso es perfecto

Código Delphi [-]
  While Condicion do
  begin

  end;

Ahora pensemos cual es la "Condicion" que nos indica que tenemos que parar. Si te fijas veras que tenemos que parar de restar en el momento en que el dividendo es menor que el divisor.

Pues bien:

Código Delphi [-]
  While Dividendo >= Divisor do
  begin
    Dividendo:= Dividendo - Divisor;
  end;

Ahora solo nos falta obtener el cociente, eso es facil, solo tenemos que contar el nuemro de vueltas que da el bucle:

Código Delphi [-]
cociente:= 0;
While Dividendo >= Divisor do
  begin
    Dividendo:= Dividendo - Divisor;
    cociente:= cociente + 1;
  end;

¿Que te parece?

Ahora todo junto:

Código Delphi [-]
var
  Dividendo, Divisor, Cociente: Integer;
begin
  Dividendo:= 13;
  Divisor:= 3;
  //
  cociente:= 0;
  while Dividendo >= Divisor do
  begin
    Dividendo:= Dividendo - Divisor;
    cociente:= cociente + 1;
  end;
  //
  Writeln('El cociente es: ',cociente);
  Writeln('El resto es: ',Dividendo);
end.