P_30_E11-Cociente+y+resto_restas+sucesivas

=__**Calcular cociente y resto mediante restas sucesivas**__=

Leer dos números enteros y positivos y calcular el cociente y el resto de la división mediante restas sucesivas.

code format="pascal" PROGRAM P_30_E11 ; VAR iDividendo, iDivisor, iCociente, iResto : Integer ; BEGIN ´{ Leer el dividendo y divisor } Write ('Escribe el dividendo: ') ; Readln (iDividendo) ; Write ('Escribe el divisor: ') ; Readln (iDivisor) ; Writeln ;

IF (iDividendo < 0) OR (iDivisor <= 0) THEN Writeln ('No puedo calcular esta divisi¢n') ELSE BEGIN iCociente := 0 ;                    { Inicializar el cociente } iResto   := iDividendo ;            { Inicializar el resto    }

WHILE iResto >= iDivisor DO        BEGIN iResto := iResto - iDivisor ;    { Restar el divisor       } iCociente := iCociente + 1       { Incrementar el cociente } END ; { Mostrar los resultados } Writeln ('El Cociente es: ', iCociente) ; Writeln ('  El Resto es: ', iResto) END ;

Writel ; ReadLN ; END. code