Pascal Dilinde Bir Algoritma Konusunda Yardım

Merhaba arkadaşlar, ödevlerimden birinde aşağıda ki soruyu çözmem ve koda dökmem lazım ancak ne yaptıysam bir türlü soruyu tam anlamıyla çözemedim. Yardımcı olabilecek var mı acaba?

Soruda kısaca "k" değişkenini gireceğiz ve ilk k tane automorphic sayıyı program listeleyecek.

Bu soruyla ilgili yardımcı olabilecek arkadaşlar var mı acaba? Akış Diyagramı veya koda dökülmüş olarak... Birkaç saattir uğraşıyorum ama tam istenilen şekilde soruyu çözemedim.

otomorf nedir

Automorphic sayılar, karesinin son basamakları kendine eşit olan sayılardır.

Örneğin;
1-1
5-25
6-26
25-625
76-5776

tamam anladım.
şuana kadar ispatlanmış bir formül bulunmuş mu
formül varsa kolay.
formül yoksada formülsüz yapılabilir.
k değeri için girilen büyük ise o zama biraz zaman alır ama

şöyle bir algoritma geliştir.
k tane bu tür sayıdan bulacağız.

örneğin k değeri 10 tane olsun.
o zaman 1 den başlayarak 10000 bine kadar sayıların karelerini aldır.
bu şarta uyanları bir yerde biriktir.
eğer k değerine ulaşılmışsa döngü bitsin. ulaşılmamışsa devam etsin.

Ek Olarak:

önceki mesajımdaki algoritma daha da geliştirilebilir.

şöyleki
k değerinde sayıyı bulacağız
sayıların basamakları büyüdükçe onları parçalamak zor olacaktır. text e çevirmek mantıklı olacaktır.
tabandaki sayıyı ve karesini textte atıp oradan karekter karşılaştırması yapılabilir.

Ek Olarak:

burada sınır ben 10000 dedim ama sınır olarak sayı verilmeyede bilinir.
K tane sayı bulunana kadar döngü devam edecek şekilde oluşturulabilirde.

Ek Olarak: ayrıca buna benzer mükemmel sayı teoremide var.
şöyle ;
sayıyı bölen(kendisi hariç) sayıların toplamı sayıya eşitse o sayıya mükemmel sayı deniyor.
mesala :
4 ü ele alacak olursak; bölenleri 1 ve 2 dir toplamı 1+2= 3 o zaman bu sayı mükemmel değil.
6 yı ele alırsak ; bölenleri 1,2,3 toplamları 6 yapıyor. o zaman 6 sayısı mükemmel sayıların ilki oluyor.

Mükemmel sayı teoremi basit, onu yaptık ama bu problem zor biraz. Tüm automorphic sayıları listeleyebiliyorum ama ilk k tanesini alamıyorum. Pascal dilinde çok fazla fonksiyon yok zaten, bu dilde kodlamam lazım.

c'de şu şekilde çalışmakta:

int main(){
int k;
printf("enter k number: "); scanf("%d", &k);

long automorphic[k], i=0;
int n=0;

while(n if(i*i%10==i || i*i%100==i || i*i%1000==i || i*i%10000==i || i*i%100000==i) {
automorphic[n] = i;
n++;
}
i++;
}

for(n=0;n printf("%d\n", automorphic[n]);
}

getch();
return 0;
}