Calcular Serie de Números Impares (Programa en Pascal)

uses crt;
var
   n, residuo, contador: integer;
begin

   clrscr;
   contador:=0;
   n:=0;
   residuo:=0;
   writeln(‘Programa para Mostrar 50 Numeros Impares’);
   writeln;

   while residuo=0 do
     begin
        writeln(‘Ingrese el numero a partir del cual se va a mostrar la serie: ‘);
        readln(n);
        residuo:=n mod 2;
        if residuo=0 then
           writeln(‘El numero debe ser impar… Vuelva a intentarlo…’);
     end;
   writeln;
   write(‘(1)’,n,’ ‘);
   while contador<49 do
     begin
        contador:=contador+1;
        n:=n+2;
        write(‘(‘,contador+1,’)’,n,’ ‘);

     end;
   writeln;
   writeln(‘Fin del programa…’);
   writeln(‘Presione cualquier tecla para continuar.’);
   readkey;
end.

Anuncios

Acerca de Luis Castellanos

Luego de unos años en Maracaibo, de regreso en Caracas. Docente Universitario y Bloguero. Orgulloso padre de dos hijos. luiscastellanos @ yahoo.com | @lrcastellanos

Publicado el marzo 20, 2007 en Programación. Añade a favoritos el enlace permanente. 1 comentario.

  1. Nesecito el diagrama de flujo donde se desplieguen los números primos dentro de un rango que se pueda determinar.
    saludos
    melvin.valderramos@carem.co.cr

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: