EJERCICIOS RESUELTOS: 01.- Leer un número entero y mostrar todos los enteros comprendidos entre 1 y el número leído. ALGORITMO Numcom Var N, i: Entero INICIO Repetir Leer (N) Hasta (N-1 >= 2) Desde i=1, hasta N inc 1 escribir (i) Fin _ Desde FIN 02.- Leer un número entero y mostrar todos los pares comprendidos entre 1 y el número leído.
03.- Leer un número entero y mostrar todos los divisores exactos del número comprendidos entre 1 y el número leído. ALGORITMO Divisores Exactos Var a, N, D: Entero INICIO Repetir Leer (N) hasta (N >=4) a=2 Hacer D = N mod a Si (D=0) entonces escribir (a) Fin _ Si a = a+1 Mientras (N > a) FIN 04.- Leer dos números y mostrar todos los enteros comprendidos entre ellos.
05.- Leer dos números y mostrar todos los números terminados en 4 comprendidos entre ellos. ALGORITMO Numteren4 Var a, b, may, men, c, N: Entero INICIO Repetir Leer (a,b) hasta (a>0 ∧ b>0) may = a men = b Si (may < b) entonces may = b men = a Fin _ Si c=0 Mientras (c < may) hacer men = men+1 N = men mod 10 Si (N = 4) entonces escribir (men) Fin _ Si c = c+1 Fin _ Mientras FIN
06.- Leer un número entero de tres dígitos y mostrar todos los enteros comprendidos entre 1 y cada uno de los dígitos. ALGORITMO Numcomentredig Var N, Pd, Sd, Ud, i, v, a: Entero INICIO Repetir Leer (N) hasta (N > 99 ∧ N < 1000) Pd = N div 100 Sd = (N div 10) mod 10 Ud = N mod 10 Desde i=2, hasta Pd-1 inc 1 escribir (i) Fin _ Desde Desde v=2, hasta Sd-1 inc 1 escribir (v) Fin _ Desde Desde a=2, hasta Ud-1 inc 1 Escribir (a) Fin _Desde FIN
07.- Mostrar en pantalla todos los enteros comprendidos entre 1 y 100.
08.- Mostrar en pantalla todos los pares comprendidos entre 20 y 200 ALGORITMO Numcomentre20y200 Var a: Entero INICIO a = 21 Mientras (a <= 199) hacer escribir (a) a = a+1 Fin _ Mientras FIN 09.- Mostrar en pantalla todos los números terminados en 6 comprendidos entre 25 y 205.
10.- Leer un número entero y determinar a cuanto es igual la suma de todos los enteros comprendidos entre 1 y el número leído. ALGORITMO Sumdenumcom Var N, S: Entero INICIO Repetir Leer (N) hasta (N >= 3) S=0 Repetir N=N–1 S = S+N hasta (N = 2) escribir (S) FIN 11.- Leer un número entero de dos dígitos y mostrar en pantalla todos los enteros comprendidos entre un digito y otro.
12.- Leer un número entero de tres dígitos y determinar si tiene el digito 1. ALGORITMO Digito Uno Var N, Pd, Sd, Ud: Entero INICIO Repetir Leer (N) Si (N < 0) entonces N = N (-1) Fin _ Si hasta (N>99 ∧ N>1000) Pd = N div 100 Sd = (N div 10) mod 10 Ud = N mod 10 Si (Pd=1 ∨ Sd=1 ∨ Ud=1) entonces escribir (‘Si tiene el digito uno’) Si_No escribir (‘No tiene el digito uno’) Fin _ Si FIN 13.- Leer un número entero y mostrar todos los múltiplos de 5 comprendidos entre 1 y el número leído.
14.- Mostrar en pantalla los primeros 20 múltiplos de 3. ALGORITMO Múltiplos de 3 Var M, C: Entero INICIO M=3 C=0 Repetir escribir (M) M = M+3 C = C+1 hasta (C = 20) FIN 15.- Escribir en pantalla el resultado de sumar los primeros 20 múltiplos de 3. ALGORITMO Suma de múltiplos de 3 Var M, C, S: Entero INICIO M=0 C=0 S=0 Hacer M = M+3 C = C+1 S = S+M Mientras (C <= 20) Escribir (S) FIN 16.- Mostrar en pantalla el promedio entero de los n primeros múltiplos de 3 para un número n leído. ALGORITMO Promedio Var N, S, M, C, P: Entero INICIO Repetir Leer (N) hasta (N>0) S=0 M=0 C=0 Mientras (C <= N) hacer M = M+3 C = C+1 S = S+M Fin _ Mientras P = S div C escribir (P) FIN
17.- Promediar los x primeros múltiplos de 2 y determinar si ese promedio es mayor que los y primeros múltiplos de 5 para valores de x y y leídos. ALGORITMO Comparación de Promedios Var S, C, x, y, M: Entero Px, Py: Real INICIO Repetir Leer (x,y) hasta (X>0 ∧ y>0) S=0 M=0 C=0 Mientras (C <= x) hacer M = M+2 C = C+1 S = S+M Fin _ Mientras Px = S/x S=0 M=0 C=0 Mientras (C <= y) hacer M = M+2 C = C+1 S = S+M Fin _ Mientras Py = S/y Si (Px > Py) entonces Escribir (Px, ‘es mayor’) Fin _ Si FIN 18.- Leer dos números enteros mostrar todos los múltiplos de 5 comprendidos entre el menor y el mayor. ALGORITMO Mulde5com Var a, b, may, men, M: Entero INICIO Repetir Leer (a,b) men = a may = b Si (men > b) entonces men = b may = a Fin _ Si hasta (may – men >= 6) Mientras (men < may) hacer men = men+1 M = men mod 10 Si (M = 5 ∨ M = 0) entonces escribir (men) Fin _ Si Fin _ Mientras FIN
19.- Leer un número entero y determinar si es primo. ALGORITMO Numero Primo Var N, C, P: Entero INICIO Leer (N) Si (N < 0) entonces N = N (-1) Fin _ Si C=0 Desde i =1, hasta N inc 1 P = N mod i Si (P = 0) entonces C = C+1 Fin _ Si Fin _ Desde Si (C = 2) entonces Escribir (‘es primo’) Fin _ Si FIN 20.- Leer un número entero y determinar cuantos dígitos tiene. ALGORITMO Cantidad de Dígitos Var N, C: Entero INICIO Leer (N) Si (N < 0) entonces N = N (-1) Fin _ Si C=0 Repetir N = N div 10 C = C+1 hasta (N = 0) escribir (‘tiene’ C, ‘dígitos’) FIN 21.- Leer un número entero y determinar a cuanto es igual la suma de sus dígitos. ALGORITMO Suma de Dígitos Var S, D, N: Entero INICIO Leer (N) Si (N < 0) entonces N = N (-1) Fin _ Si S=0 Mientras (N > 0) hacer D = N mod 10 N = N div 10 S = S+D Fin _ Mientras ecribir (S) FIN
22.- Leer un número entero y determinar cuantas veces tiene el dígitos 1. ALGORITMO Dígito Uno Var N, D, P: Entero INICIO Leer (N) Si (N < 0) entonces N = N (-1) Fin _ Si P=0 Mientras (N > 0) hacer D = N mod 10 Si (D = 1) entonces P = P+1 Fin _ Si N = N div 10 Fin _ Mientras escribir (‘tiene’ P, ‘veces el dígito uno’) FIN
23.- Leer un número entero y determinar si la suma de sus dígitos también es un número primo. ALGORITMO Suma de Dígitos Var N, S, C, D, P: Entero INICIO Leer (N) Si (N < 0) entonces N = N (-1) Fin _ Si S=0 C=0 Mientras (N > 0) hacer D = N mod 10 N = N div 10 S = S+D Fin _ Mientras Desde i =1, hasta S inc 1 P = S mod i Si (P = 0) entonces C = C+1 Fin _ Si Fin _ Desde Si (C = 2) entonces escribir (‘Suma de dígitos es primo’) Fin _ Si FIN
24.- Leer un número entero y determinar a cuanto es igual la suma de sus dígitos pares. INICIO Sumdigpar Var N, S, D: Entero INICIO Leer (N) Si (N < 0) entonces N = N (-1) Fin _ Si S=0 Mientras (N > 0) hacer D = N mod 10 N = N div 10 Si (D mod 2 = 0) S = S+D Fin _ Si Fin _ Mientras escribir (S) FIN
25.- Leer un número entero y determinar a cuanto es igual el promedio entero de sus dígitos. ALGORITMO Promdedig Var N, D, S, P, C: Entero INICIO Leer (N) Si (N < 0) entonces N = N (-1) Fin _ Si S=0 C=0 Mientras (N > 0) hacer D = N mod 10 N = N div 10 S = S+D C = C+1 Fin _ Mientras P = S div C escribir (P) FIN
26.- Leer un número entero y determinar cual es el mayor de sus dígitos. ALGORITMO Var a, b, c: Entero INICIO Leer (a) b=0 c=0 Repetir b = a mod 10 a = a div 10 Si (c < b) entonces c=b Fin _ Si hasta (a = 0) escribir (c, ‘mayor’) FIN 27.- Leer 2 números enteros y determinar cual de los tiene mayor cantidad de dígitos. ALGORITMO Cantidig Var a, b, c, D, m: Entero INICIO Leer (a) Si (a < 0) entonces a = a (-1) Fin _ Si c=0 Mientras (a > 0) hacer D = a mod 10 a = a div 10 c = c+1 Fin _ Mientras Leer (b) Si (b < 0) entonces b = b (-1) Fin _ Si m=0 Mientras (b > 0) hacer D = a mod 10 a = a div 10 m = m+1 Fin _ Mientras Si (c <> m) entonces Si (c > m) entonces escribir (a, ‘tiene mayor cantidad de dígitos’) Si _ No Escribir (b, ‘tiene mayor cantidad de dígitos’) Fin _ Si Fin _ Si FIN
28.- Leer 2 números enteros y determinar cual de los dos tiene mayor cantidad de dígitos primos. ALGORITMO Maycandedigprimos Var a, b, D, P, C: Entero INICIO Leer (a) Si (a < 0) entonces a = a (-1) Fin _ Si P=0 Mientras (a > 0) hacer D = a mod 10 Si (D = 0) entonces P = P+1 Fin _ Si a = a div 10 Fin _ Mientras Leer (b) Si (b < 0) entonces b = b (-1) Fin _ Si C=0 Mientras (a > 0) hacer D = b mod 10 Si (D = 0) entonces C = C+1 Fin _ Si b = b div 10 Fin _ Mientras Si (P <> C) entonces Si (P > C) entonces escribir (a, ‘tiene mayor cantidad de dígitos primos’) Si _ No escribir (b, ‘tiene mayor cantidad de dígitos primos’) Fin _ Si Si _ No Escribir (‘tienen igual cantidad de dígitos primos’) Fin _ Si FIN 29.- Leer un número entero y determinar a cuanto es igual el primero de sus dígitos. ALGORITMO Primer Dígito Var N, D: Entero INICIO Leer (N) Si (N < 0) entonces N = N (-1) Fin _ Si Repetir D = N mod 10 N = N div 10 hasta (N = 0) escribir (D) FIN
30.- Leer un número entero y mostrar todos sus componentes numéricos o sea aquellos para quienes el sea un múltiplo. ALGORITMO Componentes Numéricos Var N, i, P: Entero INICIO Repetir Leer (N) hasta (N > 1) Desde i=1, hasta N inc 1 P = N mod i Si (P = 0) entonces escribir (i) Fin _ Si Fin _ Desde FIN
31.- Leer números hasta que digiten 0 y determinar a cuanto es igual el promedio de los números terminados en 5. ALGORITMO Promedio Var N, D, S, C, P: Entero INICIO C=0 S=0 Repetir Leer (N) Si (N > 0) entonces D = N mod 10 Si (D = 5) entonces S = S+N C = C+1 Fin _ Si Fin _ Si hasta (N < = 0) P = S/C escribir (P) FIN
32.- Leer números hasta que digiten 0 y determinar a cuanto es igual el promedio de los números primos leídos. ALGORITMO Promedio de Números Primos Var N, C, S, i, D, P, M: Entero INICIO Hacer Leer (N) Si (N > 0) entonces M=0 Desde i=1, hasta N, inc 1 D = N mod i Si (D=0) entonces M=M+1 Fin _ Si Fin _ Desde Si (M=2) entonces C = C+1 S = S+N Fin _Si Fin _ Si Mientras (N > 0) P = S div C escribir (“P”) Fin
33.- Si 32768 es el tope superior para los números enteros cortos, determinar cual es el número primo más cercano por debajo de él. ALGORITMO Numprim Var i, a, b, c, d: Entero INICIO Desde i =2, hasta 32768 inc 1 Desde a =1, hasta i inc 1 b = i mod a Si (b = 0) entonces c = c+1 Fin _ Si Fin _ Desde Si (c =2) entonces a=i Fin _ Si Si (d < a) entonces d=a Fin _ Si Fin _ Desde escribir (d) FIN
34.- Generar los números del 1 al 10 utilizando un ciclo que vaya del 10 al 1. ALGORITMO Numdel1al10 Var i, D, N :Entero INICIO D=9 Desde i=10, hasta 1 inc –1 N= i – D escribir (N) D=D – 2 Fin _ Desde FIN 35.- Leer 2 números enteros y determinar a cuanto es el producto mutuo del primer digito de cada uno. ALGORITMO Producto Mutuo Var A, b, c, d, P: Entero INICIO Leer (a,b) Mientras (a <= 9) hacer d = a mod 10 a = a div 10 Fin _ Mientras Mientras (b <= 9) hacer c = b mod 10 b = b div 10 Fin _ Mientras P=d*c escribir (P) FIN 36.- Mostrar en pantalla la tabla de multiplicar del número 5. ALGORITMO Tabla del 5 Var N, M : Entero INICIO N=1 Repetir M= N*5 Escribir (M) N = N+1 Hasta (N = 13) FIN
37.- Generar todas las tablas de multiplicar del 1 al 10. ALGORITMO Tabla del 1 al 12 Var N, D, M: Entero INICIO N=1 Repetir D =1 Mientras (D < 13) hacer M=N*D escribir (M) Fin _ Mientras N = N+1 hasta (N =13) FIN 38.- Leer un número entero y mostrar en pantalla su tabla de multiplicar. ALGORITMO Tabla de un Número Var N, M, D: Entero INICIO Leer (N) D=1 Hacer M=D*N escribir (M) D = D+1 Mientras (D < 13) FIN 39.- Se define la serie Fibonacci como la serie que comienza con los dígitos 1 y 0 y va sumando progresivamente los dos últimos elementos de la serie, así: 0 1 1 2 3 5 8 13 21 34… Utilizando el concepto de ciclo generar la serie de fibonacci hasta llegar o sobrepasar el número 10000. ALGORITMO Serie Fibonacci Var a, b,c: Entero INICIO a=0 b =1 escribir (a,b) Repetir c = a+b escribir (c) a=b b=c hasta (c >= 10000) FIN
40.- Leer un número de dos dígitos y determinar si pertenece a la serie fibonacci. ALGORITMO Numsiperaseriefibo Var a, b, c, N: Entero INICIO Repetir Leer (N) hasta (N > 9 ∧ N < 100) a=5 b=8 Hacer c = a+b Si (c = N) entonces escribir (Pertenece a la serie Fibonacci) Fin _ Si a=b b=c Mientras (c <= 89) FIN 41.- Determinar a cuanto es igual la suma de los elementos de la serie de Fibonacci entre 0 y 100. ALGORITMO Suma de Fibonacci Var S, a, b, c: Entero INICIO S=0 a=0 b=1 c=0 Hacer S = S+c a=b b =c c = a+b Mientras (c < 100) escribir (s) FIN 42.- Determinar a cuanto es igual el promedio entero de los elementos de la serie Fiboncci entre 0 y 100. ALGORITMO Promedio de la SEFIBO Var S, a, b, c, M, P: Entero INICIO S=0 a=0 b=1 c=0 M=0 Hacer S = S+c a=b b =c c = a+b M = M+1 Mientras (c < 1000) P = S div M escribir (P) FIN
43.- Determinar cuantos elementos de la serie de Fibonacci se encuentran entre 1000 y 2000. ALGORITMO Numcompenserifibo Var a, b, c, d: Entero INICIO a=0 b=1 d=0 Repetir c = a+b Si (c > 1000 ∧ c < 200) entonces d = d+1 Fin _ Si a=b b=c Hasta (c >= 1999) escribir (d) FIN 44.- Leer un número y calcularle su factorial. ALGORITMO Factorial de un Número Var N, Fact: Entero INICIO Repetir Leer (N) hasta (N >= 0) Fact = 1 Si (N = 0 ∨ N = 1) entonces escribir (Fact) Fin _ Si Repetir Fact = Fact * N N = N -1 hasta (N = 0) escribir (Fact) FIN 45.- Leer un número y calcularle el factorial a todos los enteros comprendidos entre 1 y el número leído. ALGORITMO Factdenumcom Var N, i, Fact: Entero INICIO Desd i =2, hasta N -1 inc 1 Fact = 1 Mientras (i > 0) hacer Fact = Fact * i i = i -1 Fin _ Mientras escribir (Fact) Fin _ Desde FIN
46.- Leer un número entero y calcular el promedio entero de los factoriales de los enteros comprendidos entre 1 y el número leído. ALGORITMO Sumatoria de Factoriales Var N, i, Fact, C, S, P: Entero INICIO Repetir Leer (N) hasta (N >= 0) C=0 S=0 Desde i =2, hasta N -1 inc 1 Fact = 1 Mientras (i > 0) hacer Fact = Fact * i i = i -1 Fin _ Mientras C = C+1 S = S+Fact Fin _ Desde P = S div C escribir (P) FIN
47.- Leer un número y calcular a cuanto es igual la sumatoria de todos los factoriales de los números comprendidos entre 1 y el número leído. ALGORITMO Sumdenumcom Var N, S, Fact, i: Entero INICIO Repetir Leer (N) hasta (N >= 0) S=0 Desde i =2, hasta N -1 inc 1 Fact = 1 Mientras (i > 0) hacer Fact = Fact * i i = i -1 Fin _ Mientras S = S+Fact Fin _ Desde escribir (S) FIN
48.- Utilizando ciclos anidados generar las siguientes parejas de enteros. 01 11 22 32 43 53 64 74 85 95 ALGORITMO parejas de Números Var a, b, c: Entero INICIO a=0 b=1 Repetir c=1 Mientras (c <=2) hacer escribir (a,b) a = a+1 c = c+1 Fin _ Mientras b = b+1 hasta (b = 6) FIN 49.- Utilizando ciclos anidados generar las siguientes ternas de números. 111 212 313 421 522 623 731 832 933 ALGORITMO Ternas de números Var a, b, c, d: Entero INICIO a=1 b=1 Mientras (b <=3) hacer c=1 d=1 Mientras (d <= 3) hacer escribir (a,b,c) a = a+1 d = d+1 c = c+1 Fin _ Mientras b = b+1 Fin _ Mientras FIN
50.- Utilizando ciclos anidados generar las siguientes parejas de números. 01 11 21 31 42 52 62 72 ALGORITMO Parejdenum Var a, b, c INICIO a=0 b=1 Mientras (b <= 2) hacer c=1 Repetir escribir (a,b) a = a+1 c = c+1 Hasta (c = 5) b = b+1 Fin _ Mientras FIN
