Únete a IDNStudies.com y obtén respuestas a tus preguntas. Pregunta cualquier cosa y recibe respuestas informadas y detalladas de nuestra comunidad de profesionales especializados en diversas áreas.

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;