Question

como se faz uma divisão por subtração sucessiva?

Answer 1

Código (Pascal):Program metodo;
var dividendo, divisor, quociente, resto: integer;
begin
writeln('Escreva o dividendo e o divisor');
readln(dividendo, divisor);
resto:=0;
quociente :=0;
resto:=dividendo-divisor;
quociente:=quociente+1;
while resto >= divisor do
   begin
         resto:=resto - divisor;
         quociente:=quociente +1;
   end;
writeln(dividendo,' : ',divisor,' = ',quociente,' resto:= ',resto);
readln;
end.