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

Question

Informática

contestada

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

Respuesta :

ID Otras preguntas

Resuelve Las Siguientes Ecuaciones Del Segundo Grado. Me Pueden Ayudar Muchas Gracias:)Se Los Pido Por Favor:) -7x^2 + 35=0 3x^2-70=0 3x^2-27=0 4x^2+20

Para Despegar Un Avion De Pasajeros Que Parte Del Reposo, Necesita Recorrer Una Pista De 3500m Y Una Velocidad De Despege De 300 Km/h . Calcular La Aceleracion

Ningun Conjunto Es Subconjunto De Vacio :D

Por La Terraza De Un Edificio Rueda Una Bola Con Una Velocidad Uniforme De 8,5 M/s Y Cae Al Piso A Una Distancia De La Pared Del Edificio De 12,4 M. Calcular :

LOS ACIDOS OXACIDOS ADEMAS DE SER COMBINACIONES DEL HIDROGENO CON LOS ELEMENTOS NO-METALICOS CONTIENEN OXIGENO PUES RESULTAN DE LA COMBINACION DE OXIDOS ACIDOS

EJEMPLO. EN CONDISIONES IDEALES SE SABE QUE CIERTA POBLACION DE BACTERIAS SE DUPLICA CADA TRES HORAS SUPONGA QUE PRIMERO HAY 100 BACTERIAS A) ¿CUAL ES EL TAMAÑO

4 Nombres De Los Triangulos Y Sus Imagenes Please

Falso O Verdadero Todo Numero R Es Z

1) En Que Consistió Las Cruzadas En La Iglesia. 2) En Que Consistió La Inquisición En La Iglesia Gracias.

Una Moto Cuyo Precio Era De 5000s Cuesta En La Actualidad 250s Mas ¿cual Serael Porcentaje De Aumento?

Osmagaldaid Osmagaldaid · Answer 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;