Algoritmos y Programación en Pascal

6.6. Ejercicios 119
4 es par
5 es impar, pero no es de la forma 8k+1
17 es impar y de la forma 8k+1 (para k = 2), pero no es un
cuadrado perfecto.
25 es impar, de la forma 8k+1 (para k = 3), y cuadrado
perfecto de 5
dando una salida como las indicadas.
7. ¿Qué hace el siguiente programa?
Program Letras (output);
var
fila, col: char;
begin
for fila:= ’A’ to ’Z’ do begin
for col:= ’A’ to fila do
Write(fila);
WriteLn
end {for}
end. {Letras}
8. Considérese la función
P (n) =
3n + 1 si n es impar
n/2 si n es par
y sea N un número natural arbitrario. La sucesión numérica
{N, P (N), P (P (N)), P (P (P (N))), . . . , P (P (. . . P (N) . . .)), . . .}
son los llamados números pedrisco (véase el apartado 1.3.1) generados por N. Por
ejemplo, para N = 5 su sucesión de números pedrisco es {5, 16, 8, 4, 2, 1, 4, 2, 1, . . .}
donde, a partir del sexto término, los valores 4, 2 y 1 se repiten indefinidamente.
Construya un programa que, dado un natural N, escriba su sucesión de números
pedrisco y cuente las iteraciones necesarias para llegar a 1 (y entrar en el bucle
1, 4, 2, 1, . . . ). Aplicarlo a todos los enteros menores que 30. ¿Se observa algo
especial para N = 27?
9. Escriba un programa cuyos datos son dos números naturales y una operación
(suma, resta, multiplicación o división), y cuyo resultado es la cuenta correspondiente
en el siguiente formato:
1234
* 25
------
30850
Complete el programa anterior de manera que, antes de efectuar la operación
seleccionada, verifique que va a ser calculada sin conflicto.