Programas Resueltos

1.  Desarrolle un programa en Pascal que sume los números comprendidos entre 1 y 10.

PROGRAM SUMARNUM;

        USES CRT;

        VAR num, x:INTEGER;

BEGIN

     ClrScr;

     num:=1;

     x:=1;

     WHILE num <= 10 DO

     BEGIN

          WRITELN (x);

          num:= num + 1;

          x:= x + num;

     END;

END.

2.  Desarrolle un programa en Pascal que muestre en pantalla los números pares entre 1 y 25.

PROGRAM pares;

        USES CRT;

        VAR num:INTEGER;

BEGIN

     num:=2;

     ClrScr;

     REPEAT

           WRITELN (num);

           num:= num + 2;

     UNTIL num= 26;

END.

3.Hacer un Programa en pascal que imprima el mayor valor de n números.

Program mayvalor;
uses crt;
var
n,i: integer;
numero,mayor : real;

begin
write(‘ Escriba la cantidad de numeros a comparar ‘);
readln(n);
mayor := 0;
for i := 1 to n do
begin
write( ‘ Escriba un numero ‘);
readln(numero);
if numero > mayor
mayor := numero
end;
writeln( ‘ El mayor valor es : ‘,mayor:7:2);
readkey;
end.