Lógica - analisis algoritmico

EJERCICIOS APLICATIVOS

Ejercicio 1

Procedure p1 (a: integer);
begin
if a > 0 then
begin
writeln(a);
p1(a - 1);
end
else writeln ('Fin')
end;

¿Qué cambiaría al añadir estas dos líneas después de la instrucción ‘else ...’?: writeln (a);
writeln ('Fin de verdad')

Ejercicio 2

Procedure p2 (a, b: integer);
begin
if a MOD b <> 0 then
begin
writeln (a);
p2 (a + 1, b);
end
else writeln ('Fin')
end;

¿Qué cambiaría al eliminar el último ‘else’ del programa?

3ejercicio
Encuentre qué calcula la función recursiva Func y escriba una función iterativa que realice la misma tarea, realizar el grafo para ambas situaciones:

ALGORITMO N Func(E N num)
VAR N res
INICIO
SI n == 0 ENTONCES
res= 0
SI NO
res= num+Func(num-1)
FIN
DEVOLVER res
FIN Func

pienzo que ewl primero imprimiria pi en vez de a y quitaria else writeln ('Fin')