Tarea programacion

Ejercicios capitulo 7

20. leer tres números enteros y mostrarlos ascendentemente

NT NUM1,NUM2,NUM3;

INICIO

        ESCRIBA "Introduzca un numero: ";LEA NUM1;

        ESCRIBA "Introduzca otro numero: ";

        LEA NUM2;

        ESCRIBA "Introduzca otro numero: ";

        LEA NUM3;

        SI(NUM3>=NUM1<=NUM2)

                SI(NUM2

                        ESCRIBA "NUM1, NUM2, NUM3";

                SINO

                        ESCRIBA "NUM1, NUM3, NUM2";

                FIN_SI

        SI(NUM1>=NUM2<=NUM3)

                SI(NUM1

                        ESCRIBA "NUM2, NUM1, NUM3";

                SINO

                        ESCRIBA "NUM2, NUM3, NUM1";

                FIN_SI

        SI(NUM1>=NUM3<=NUM2)

                SI(NUM2

                        ESCRIBA "NUM3, NUM2, NUM1";

                SINO

                        ESCRIBA "NUM3, NUM1, NUM2";

                FIN_SI

        FIN_SI

FIN

21. leer tres números enteros de dos dígitos cada uno y determinar en cual de ellos se encuentra el mayor digito

INT NUM1,NUM2,NUM3,DIG11,DIG12,DIG21,DIG22,DIG31,DIG32;

INICIO

        ESCRIBA "Introduzca un numero: ";

        LEA NUM1;

        ESCRIBA "Introduzca otro numero: ";

        LEA NUM2;

        ESCRIBA "Introduzca otro numero: ";

        LEA NUM3;

        SI((9NUM1>-100) && (9NUM2>-100) && (9

                DIG11=(NUM1/10)

                    DIG12=(NUM1%10)

                    DIG21=(NUM2/10)

                    DIG22=(NUM2%10)

                    DIG31=(NUM3/10)

                    DIG32=(NUM3%10)

        FIN_SI

            SI((DIG21 < DIG11 > DIG22 Y DIG32 < DIG11 > DIG31) O (DIG21 < DIG12 > DIG22 Y DIG31 < DIG12 > DIG32))

                    ESCRIBA "El digito mayor se encuentra en el primer numero";

        FIN_SI

            SI((DIG11DIG12 Y DIG31DIG32) O (DIG11DIG12 Y DIG31DIG32))

                    ESCRIBA "El digito mayor se encuentra en el segundo numero";

        FIN_SI

            SI((DIG11DIG12 Y DIG21DIG22) O (DIG11DIG12 Y DIG21DIG22))

                    ESCRIBA "El digito mayor se encuentra en el tercer numero";

        FIN_SI

    SINO

            ESCRIBA "Numero invalido"

    FIN_SI

FIN

22. leer un numero entero de tres dígitos y determinar si el primer digito es igual al ultimo

INT NUM,DIG1,DIG3;

INICIO

        ESCRIBA "Introduzca un numero de tres digitos: ";

        LEA NUM;

        SI(99NUM>-1000)

                DIG1=NUM/10/10

                DIG3=NUM%10

                SI(DIG1==DIG3)

                        ESCRIBA "El primer digito es igual al ultimo";

                SINO

                        ESCRIBA "El primer digito no es igual al ultimo";

                FIN_SI

        SINO

                ESCRIBA "Numero invalido";

        FIN_SI

FIN

23. leer un numero entero de tres dígitos y determinar cuantos dígitos primos tiene

INT NUM,CANT=0,DIG1,DIG2,DIG3;

INICIO

        ESCRIBA "Introduzca un numero de tres digitos: ";

        LEA NUM;

        SI(99NUM>-1000)

                DIG1=NUM/10/10

                DIG2=NUM/10%10

                DIG3=NUM%10

                SI((DIG1%2>0 && DIG1%3>0) || DIG1==2)

                        CANT=CANT+1

                SI((DIG2%2>0 && DIG2%3>0) || DIG2==2)

                        CANT=CANT+1

                SI((DIG3%2>0 && DIG3%3>0) || DIG3==2)

                        CANT=CANT+1

                ESCRIBA "El numero tiene CANT digitos primos";

                FIN_SI

        SINO

                ESCRIBA "Numero invalido";

        FIN_SI

FIN        

24. . leer un numero entero de tres dígitos y determinar cuantos dígitos pares tiene

INT NUM,CANT=0,DIG1,DIG2,DIG3;

INICIO

        ESCRIBA "Introduzca un numero de tres digitos: ";

        LEA NUM;

        SI(99NUM>-1000)

                DIG1=NUM/10/10

                DIG2=NUM/10%10

                DIG3=NUM%10

                SI(DIG1%2==0)

                        CANT=CANT+1

                SI(DIG2%2==0)

                        CANT=CANT+1

                SI(DIG3%2==0)

                        CANT=CANT+1

                ESCRIBA "El numero tiene CANT digitos pares";

                FIN_SI

        SINO

                ESCRIBA "Numero invalido";

        FIN_SI

FIN        

25. leer un numero entero de tres dígitos y determinar si alguno de sus dígitos es igual a la suma de los otros dos

INICIO

        INT NUM, DIG1, DIG2, DIG3;

        ESCRIBA "Introduzca un numero: ";

        LEA NUM;

        SI (NUM > 999) Y (NUM < 100)

                ESCRIBA "Numero invalido";

                FIN ---> DEL PROGRAMA

        SINO

                DIG1 = int((num / 10) / 10);

                DIG2 = int((num / 10) % 10);

                DIG3 = int(num % 10);

                SI DIG1 == (DIG2 + DIG3)

                        ESCRIBA "El primer digito es igual a la suma de los demas digitos";

                FIN_SI

                SI DIG2 == (DIG3 + DIG1)

                        ESCRIBA "El primer digito es igual a la suma de los demas digitos";

                FIN_SI

                SI DIG3 == (DIG1 + DIG2)

                        ESCRIBA "El primer digito es igual a la suma de los demas digitos";

                SINO

                        ESCRIBA "Ningun digito es igual a la suma de los demas digitos";

                FIN_SI

        FIN_SI

FIN

26. leer un numero entero de cuatro dígitos y determinar a cuanto es igual la suma de sus dígitos

INT NUM,RES,DIG1,DIG2,DIG3,DIG4;

INICIO

        ESCRIBA "Introduzca un numero de cuatro digitos: ";

        LEA NUM;

        SI(999NUM>-10000)

                DIG1=NUM/1000;

                DIG2=NUM/100%10;

                DIG3=NUM/10%10;

                DIG4=NUM%10;

                RES=DIG1+DIG2+DIG3+DIG4;

                ESCRIBA "La suma de los digitos es igual a RES";

...