Ejercicios de programación en Pascal (Turbo Pascal)
C/C++/C# HTML Java JavaScript Linux PHP Python Swift
 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 pantall
a:

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.