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
Respuestas
Respuesta dada por:
1
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;
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;
Preguntas similares
hace 9 años
hace 9 años
hace 9 años
hace 9 años