problema con el pascal
Publicado por jiye (1 intervención) el 26/01/2021 20:27:54
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 :
Muchas gracias
codigo :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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 thenwrite('completado ', cont,' ',b);
end.Valora esta pregunta
0