Inicio > Ejercicios > Pascal > Anidamiento de repetitivas y alternativas > 1 Ejercicio 1 - Cantidad y suma de números enteros (Anidamiento de repetitivas y alternativas - Pascal) Escribir un programa (en Pascal) que: 1º) Pida por teclado un número (dato entero). 2º) Repita el paso 1º, mientras que, el número introducido sea distinto de cero. 3º) Muestre cuántos números mayores que cero han sido introducidos por el usuario, así como, la suma de todos ellos. En pantalla: Introduzca un número entero: 4 Introduzca un número entero: 8 Introduzca un número entero: -6 Introduzca un número entero: 12 Introduzca un número entero: 0 Ha introducido 3 número(s) mayor(es) que cero. La suma es 24   Introduzca un número entero: -3 Introduzca un número entero: 0 Ha introducido 0 número(s) mayor(es) que cero. La suma es 0   Solución

Páginas relacionadas   · Apartado 3.4 Anidamiento del Curso de Pascal.   · Sintaxis del Pascal.   · Listado de ejercicios de programación resueltos en diferentes lenguajes.