Ejercicios de programación en Pascal (Turbo Pascal)
C/C++/C# HTML Java JavaScript Linux PHP Python Swift
 Inicio Ejercicios Pascal Repetitiva repetir...hasta 2 > Solución

Solución del Ejercicio 2 - Cálculo de sumas (Repetitiva repetir...hasta - Pascal)

program ARH13021;

uses Crt;

var
   Seguir : Char;
   Acumulador, N1, N2 : Integer;

begin
   ClrScr;
   Acumulador := 0;

   repeat
      Write( 'Introduzca primer numero: ' );
      ReadLn( N1 );
      Write( 'Introduzca segundo numero: ' );
      ReadLn( N2 );
      WriteLn( 'La suma es ', N1 + N2 );

      Acumulador := Acumulador + N1 + N2;

      WriteLn;
      Write( 'Desea realizar otra suma (s/n)?: ' );
      ReadLn( Seguir )
   until Seguir = 'n';

   Write( 'La suma total es ', Acumulador )
end.

Programa (.PAS): Cálculo de sumas

(Véase el apartad3.2 Repetitiva repetir...hasta ( la instrucción repeat...until ) del Curso de Pascal).
 Páginas relacionadas
  · Solución del ejercicio en pseudocódigo, ordinogramalenguaje C.
  · Instrucción repetitiva repetir...hasta (repeat...until) en la sintaxis del Pascal.
  · Listado de ejercicios de programación resueltos en diferentes lenguajes.