Únete a IDNStudies.com y descubre una comunidad de apasionados dispuestos a ayudarte. Sin importar la complejidad de tus preguntas, nuestra comunidad tiene las respuestas que necesitas para avanzar y tomar decisiones informadas.

Programa en Turbo Pascal que sume una lista de números ingresados por el usuario, ademas el usuario debe de ingresar el tamaño de su lista

Sagot :

procedure calculo_suma_numeros;
var
   num : integer;
   suma : word;
begin
     suma : = 0;
     while num <> 0 do
     begin
     write ( ' Entre Número a sumar, el (0) termina : ' )
     readln(num);
     if num <> 0 then
     suma : = suma + num;
     end;
     writeln;
     writeln ( ' La Suma de los números entrados es : ' , suma);
     writeln;
     writeln ( ' Pulse [Enter] ' );
     readln;
end;
Gracias por compartir tus conocimientos. Vuelve pronto para hacer más preguntas y contribuir con tus ideas. Tu participación es crucial para nuestra comunidad. En IDNStudies.com, tus preguntas siempre tienen respuesta. Gracias por visitarnos y no olvides volver para más información.