Buenas, estaría precisando una idea para el ejercicio 10b, no logro comprender como puedo utilizar el procedimiento creado en el apartado 10a.
Procedure multiplicidadFactor(numero, factor : integer; var multiplicidad, residuo : integer);
Begin
multiplicidad:=0;
While (numero Mod factor = 0) Do
Begin
numero:=numero Div factor;
multiplicidad:=multiplicidad+1;
End;
residuo:=numero;
End;
Tenía como idea evaluar si el número ingresado es primo, en caso de serlo, no se puede descomponer, por lo cual el resultado es el mismo número, pero en caso de no serlo y ser el número 15 por ej, ingresando factor:=2, daría resto 15 y debería pasar a factor:=factor +1; pero no me hago la idea de como hacer eso.