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 2 > Solución

Solución del Ejercicio 2 - Mostrar y sumar números enteros (Anidamiento de repetitivas y alternativas - Pascal)

program AAR13021;

uses Crt;

var Mayor, Menor, Suma : Integer;

begin
   ClrScr;
   Write( 'Introduzca primer numero entero: ' );
   ReadLn( Mayor );
   Write( 'Introduzca segundo numero entero: ' );
   ReadLn( Menor );

   Suma := 0;

   if ( Mayor > 0 ) and ( Menor < 0 ) then
      begin
         repeat
            Write( Menor, ' ' );
            Suma := Suma + Menor;
            Menor := Menor + 1
         until Menor > Mayor;
         WriteLn;
         Write( 'La suma es ', Suma );
      end
   else
      Write( 'ERROR: El primer numero debe ser mayor que cero y el segundo menor que cero.' );
end.


(Véase el apartad3.4 Anidamiento del Curso de Pascal).
 Páginas relacionadas
  · Solución del ejercicio en pseudocódigo, ordinogramalenguaje C.
  · Sintaxis del Pascal.
  · Listado de ejercicios de programación resueltos en diferentes lenguajes.