ola pessoal, estou precisando de ajuda em um programa em pascal, que adivinha o numero que o usuario esta pensado, porém nao pode ser utilizado mod nem div, deve ser feito pelo metodo de divisao por subtracoes sucessivas, eu consegui fazer usando div, mas com esse metodo de divisao por subtracoes sucessivas nao consigo, alguem pode me passar algumas dicas??esta ai o codigo:
program adivinha; var menor,maior,metade,opcao,tentativas : integer;begin writeln('Escolha um número de 0 a 1000'); menor:=0; maior:= 1000; tentativas:=0; repeat tentativas:=tentativas+1; metade:=(maior+menor)div 2; writeln('Por acaso o número é menor ou maior que ',meio,'?'); writeln('Se o número for igual digite 1.'); writeln('Se o número for maior digite 2.'); writeln('Se o número for menor digite 3.'); readln(opcao); if (opcao=2) then menor:=metade+1; if (opcao=3) then maior:=metade-1; if maior<=menor then begin metade:=(maior+menor)div 2; opcao:=1; end; until (opcao=1); writeln('Seu número é ',metade,'!'); writeln('Foram feitas ',tentativas,' perguntas.');end.