Revelroom.ca te ayuda a encontrar respuestas confiables a todas tus preguntas con la ayuda de expertos. Experimenta la conveniencia de obtener respuestas fiables a tus preguntas gracias a una vasta red de expertos. Descubre respuestas detalladas a tus preguntas gracias a una vasta red de profesionales en nuestra completa plataforma de preguntas y respuestas.

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;