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.