C-Code

#include <stdio.h>
#include <stdbool.h>
#include <math.h>
#include <string.h>

int stelle(int zahl, int stelle);
int anzahl(int zahl);
bool istPrim(int zahl);

int main(void)
{
    int i,stellenanzahl,j,k,l, zaehler, umgedrehte_Zahl, grenze, anzahlderPrimzahlen;
    int Primzahl[7];
    grenze = 1000000;
    anzahlderPrimzahlen = 0;
    
    for (i=0;i<7;i++)
        Primzahl[i]=0;
    
    for (i=13; i<=grenze; i++) {
        if (istPrim(i)==true) {
            //ist eine Primzahl
            
            //Zahl umstellen
            stellenanzahl= anzahl(i);
            zaehler= stellenanzahl;
            
            for (j=0;j<stellenanzahl;j++){
                Primzahl[j]= stelle(i,zaehler);
                zaehler = zaehler -1;
            }
            
            umgedrehte_Zahl= Primzahl[0]+Primzahl[1]*10+Primzahl[2]*100+Primzahl[3]*1000+Primzahl[4]*10000+Primzahl[5]*100000+Primzahl[6]*1000000;
            
            if (umgedrehte_Zahl<=grenze && umgedrehte_Zahl!=i){
                if (istPrim(umgedrehte_Zahl)==true )
                    printf("%d und %d sind beides Primzahlen \n", i, umgedrehte_Zahl);
                anzahlderPrimzahlen = anzahlderPrimzahlen +1;
            }
        }
        else {
            //ist keine Primzahl
        }
    }
    
    printf("Es gibt %d Lösungen. Ohne doppelte gibt es %d Lösungen", anzahlderPrimzahlen, anzahlderPrimzahlen/2);
}

//

// gibt die x. Stelle einer Zahl zurück
int stelle(int zahl, int stelle)
{
    zahl = fabs(fmod(zahl/pow(10,stelle-1),10));
    return zahl;
}

//Bestimmt die Anzahl der Zeichen einer Zahl bsp: 37690 ==> anzahl=5
int anzahl(int zahl)
{
    int zeichen;
    char buffer[100];
    sprintf(buffer,"%d",zahl);
    zeichen = strlen(buffer);
    return zeichen;
}

//prüfen ob es eine Primzahl ist
bool istPrim(int zahl) {
    bool prim, faktorgefunden;
    int t;
    
    if (zahl <= 2) {
        if (zahl < 2)
            prim = false;
        else
            prim = true;
    }
    else {
        if (zahl%2 == 0)
            faktorgefunden = true;
        else {
            faktorgefunden = false;
            t = 3;
            while (t*t <= zahl && faktorgefunden == false) {
                if (zahl % t == 0)
                    faktorgefunden = true;
                else
                    t=t+2;
            }
        }
    }
    
    if (faktorgefunden==false)
        prim = true;
    else
        prim = false;
    
    return prim;
}