Problema con ejercicio en Delphi

[b3nshi]

Mmm... veamos... si mal no te entendi... tu problema es q estas dividiendo por ejemplo 31 en 5 y te presenta este mensaje:

"El cociente de 1 entre 5 es igual a 6 y el resto 1"

Bueno si te pones a ver es logico q eso suceda ya q estas usando una misma variable... por ello te recomiendo hacerlo de la siguiente manera:

Código Delphi [-]
if opcion = 2 then
          Begin
              Write('Introduce el dividendo: ');
              readln(dividendo);
              Write('Introduce el divisor: ');
              readln(divisor);
                  resto := dividendo; //Declaras una variable "resto" q guarda el valor
                  cociente := 0;
                  while divisor <= resto do //Corrijo Aqui... y perdon por el error
                    Begin
                       resto := resto - divisor; //Resto porque se detiene cuando la condicion no se cumpla
                       cociente := cociente + 1 //Va a repetirse tantas veces como vueltas dé el Bucle
                    end;
              writeln('El cociente de ',dividendo,' entre ',divisor,' es igual a ',cociente,' y el resto ',resto);
              readln;
          end;

Y con eso cuando presentes el mensaje te saldrá bien... si no es eso lo q te sucede pues entonces corrigeme y veo como puedo ayudarte...

{Saludos}