Ejercicios

Escribir un programa que calcule la

 suma de los números hasta un número 

dado (introducido por el usuario).

PROGRAM EJER;

        USES CRT;

        VAR x, y, num:INTEGER;

BEGIN

     ClrScr;

     WRITE ('Este programa calcula la suma de los numeros

hasta uno ');

     WRITE ('introducido por el usuario: ');

     READLN (num);       WRITELN ('');

     x:=0;

     WHILE num >= 0 DO

     BEGIN

          WRITELN (x);

          x:= x + num;

          num:=num - 1;

     END;

END.