C-Code

/*********************************************
 * pers.c   Beharrlichkeit natürlicher Zahlen
 *********************************************/
#include <stdlib.h>
#include <stdio.h>
#include <string.h>

typedef struct _pers_entry {
		int pers_zahl;
		int pers_wert;
} t_pers_entry;

/* Berechne Querprodukt einer Zahl */
int calc_prod(int z) {
	char sz[10];
	char *ps;
	int qp=1;

	sprintf(sz, "%d", z);
	ps=sz;
	while (*ps)
		qp *= (int)(*ps++ - '0');
	return qp;
}

/* Berechne Persistenz einer Zahl */
int calc_pers(int z) {
	int prs=1;

    while (1) {
		if ((z = calc_prod(z)) < 10)
			break;
		prs++;
    }
    return prs;
}

/* Prüfe ob Persistenz einer Zahl maximal ist
 * falls ja, Zahl und Persistenzwert merken.
 * Ergebnisausgabe für z==0
*/
void check_pers(int z) {
	static t_pers_entry pers_list[100];
	static int pmax=2;
	static int next=0;
	int i, p;

	if (z == 0) {
	  /* Ausgabe Ergebnis */
      printf("Beste Beharrlichkeit %d bei:\n", pmax);
	  for (i=0; i<next; i++)
	    if (pers_list[i].pers_wert == pmax)
		  printf("%d\n", pers_list[i].pers_zahl);
      return;
    }

	if ((p = calc_pers(z)) >= pmax) {
   	  if (p > pmax) {
        pmax = p;
        next = 0;
	  }
	  if (next < 99) {
		pers_list[next].pers_zahl = z;
		pers_list[next].pers_wert = pmax;
		next++;
      }
	  else {
		fprintf(stderr, "no space left in pers array.\n");
		exit(EXIT_FAILURE);
	  }
	}
}

/*** main ***/
int main(int argc, char **argv) {
	int ndec, zahl;
    int i,j,k,l,m,n,p;

    printf("Anzahl Dezimalstellen: ");
    scanf("%d", &ndec);
    if (ndec < 2 || ndec > 7) {
		fprintf(stderr, "Anzahl muss in {2..7} liegen.\n");
		return 1;
	}

	/* Loop Zahlen generieren (ohne Permutationen)
	 * und ihre Persistenz prüfen */
	for (i=1; i<=9; i++) {
	  zahl = i*10;
	  for (j=i; j<=9; j++) {
		zahl += j;
		if (ndec==2) {
          check_pers(zahl);
 		}
		else {
		  zahl *= 10;
		  for (k=j; k<=9; k++) {
		    zahl += k;
		    if (ndec==3) {
              check_pers(zahl);
		    }
			else {
			  zahl *= 10;
		      for (l=k; l<=9; l++) {
			    zahl += l;
			    if (ndec==4) {
                  check_pers(zahl);
			    }
			    else {
			      zahl *= 10;
			      for (m=l; m<=9; m++) {
			        zahl += m;
				    if (ndec==5) {
                      check_pers(zahl);
			        }
			        else {
				      zahl *= 10;
				      for (n=m; n<=9; n++) {
				        zahl += n;
				        if (ndec==6) {
                          check_pers(zahl);
			            }
			            else {
				          zahl *= 10;
				          for (p=n; p<=9; p++) {
				            zahl += p;
                            check_pers(zahl);
				            zahl -= p;
						  }
						  zahl /= 10;
						}
		                zahl -= n;
			          }
			          zahl /= 10;
			        }
		            zahl -= m;
			      }
			      zahl /= 10;
			    }
		        zahl -= l;
			  }
			  zahl /= 10;
		    }
		    zahl -= k;
	      }
		  zahl /= 10;
	    }
	    zahl -= j;
	  }
    }
    check_pers(0);
    return 0;
}