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';

        escribir 'Ingreso ', impar, 'numeros impares';

FinProceso

PROCESO 4

Proceso n_Pares_1_A_50

        definir k como entero;

        definir n Como Entero;

        definir par como entero;

        par<-2;

        Mientras par<=50 Hacer

                escribir par;

                par <-par+2;

        FinMientras

FinProceso

PROCESO 5

Proceso Ceros_Y_Distintos_A_Cero

        definir x como entero;

        definir n como entero;

        definir q como entero;

        definir r como entero;

        x<-1;

        q <-0;

...