Ejercicios Ciclo Mientras Pseint

PROGRAMA 1

Proceso Cerrar_Al_Cero

        Definir n Como Entero

        n<-1

        Mientras n<>0 Hacer

                Escribir 'Ingrese un número (Ingrese 0 para cerrar el programa)'

                Leer n

        Fin Mientras

        Escribir 'El programa se cerró.'

FinProceso

PROGRAMA 2

Proceso Valor_Numero

        definir z como entero;

        definir n como entero;

        z<-1;

        Mientras z<11 Hacer

                z<-z+1;

                escribir 'Ingrese un numero';

                leer n;

                si n<0

                        entonces escribir 'Su numero es negativo';

                sino

                        si n>0

                                entonces escribir 'Su numero es positivo';

                        sino

                                escribir 'su numero es neutro';

                        FinSi

                FinSi

                escribir '';

        FinMientras

FinProceso

PROCESO 3

Proceso Par_Impar

        definir y como entero;

        definir n como entero;

        definir par como entero;

        definir impar como entero;

        definir v como caracter;

        y<-1;

        par<-0;

        impar<-0;

        Mientras y<11 Hacer

                y<-y+1;

                escribir 'Ingrese un numero';

                leer n;

                si (n % 2= 0)

                        entonces  par<- par+1;  ;

                FinSi

                si (n % 2<>0)

                        entonces impar<- impar+1;  ;

                FinSi

        FinMientras

        escribir 'Ingreso ', par, ' numeros pares';

...