[[egostar]]

Y ya entrados la escuelita, porque no hacemos la prueba con el bucle REPEAT UNTIL

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

Salud OS.