[ Foro de Pascal ]

una duda rapida

27-Jan-2021 11:23
Invitado (jiye)
1 Respuestas

hola buenas, estoy intentando hacer un ejercicio en pascal pero no consigo dar con la clave para hacerlo bien, supongo que ya llevo un rato intentandolo y no veo el error. El ejercicio es el siguiente, se trata de ir poniendo una serie de numeros, a1,a2,a3,a4,a5... Y hay que ir sumandolos y si los numeros sumados son igual al siguiente pues se deja señalizado. Si a1=3, a2=4, a3=1 en total suman 8 si el siguiente numero introducido es a4=8 pues se deja señalado. Os dejo lo que he hecho por aquí ya que solo me falta el paso donde se indica pero no se como hacerlo... A ver si alguien me puede ayudar...
Muchas gracias
codigo :

program hello;
var
a,b:integer;
cont:integer;

begin

   writeln('escribe el numero ');
   readln(a);
   cont:=a;
   write('el contador es ',cont);
   readln();
       while cont<>b do
       begin
       writeln('numero:');
       readln(b);
       cont:= cont+b;
       write('su suma continua es: ',cont);
       readln();
       end;
       if b=cont then
       write('completado ', cont,' ',b);


end.


27-Jan-2021 21:49
Nacho Cabanes (+74)

¿A qué te refieres con "se deja señalado"? ¿A que el programa debe terminar en ese momento?






Si ya eres usuario del sistema, puedes contestar desde tu cuenta y así ganar prestigio.

Si sólo eres un visitante, puedes optar por...