[ Foro de Pascal ]
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.
¿A qué te refieres con "se deja señalado"? ¿A que el programa debe terminar en ese momento?