Question

Necesito ayuda por favor me pide Programar a Pseint el siguiente enunciado:

Answer 1

SubProceso x <- compuesto ( num )

Definir  x como logico;

definir i Como Entero;

Definir cont como entero;

cont <-0;

i<-2;

x <- Falso;

 

Mientras (num >= 2 & cont <= 2 & i<=num) hacer

 si (num % i =0) entonces

  cont<-cont+1;

  num <- num/i;

 FinSi

 

 si (num % i <>0) entonces  

  i<-i+1;

 FinSi

 

FinMientras

 

si (cont >=2) entonces

 x <- Verdadero;

FinSi

 

 

FinSubProceso

Proceso numerosCompuestos

 

definir num, cont , i como entero;

definir result como cadena;

 

result <-" - ";

i <- 3;

cont <- 0;

 

 

 Escribir "Genera N numeros compuestos ";

 Escribir Sin Saltar "Ingrese un numero <N> : ";

 Leer num;

 

 mientras (cont < num) hacer

  si (compuesto(i)=Verdadero) Entonces

   cont<-cont+1;

   result <- concatenar(result ,  convertiratexto(i));

   result <- Concatenar(result, " - ");

  FinSi

  i<-i+1;

 

 FinMientras

 

 Escribir "";

 Escribir "Resultado ", result;

FinProceso