[ 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?
(No se puede continuar esta discusión porque tiene más de dos meses de antigüedad. Si tienes dudas parecidas, abre un nuevo hilo.)