C# Mükemmel Sayılar

0 ile 9999 arasındaki mükemmel sayıları listbox'a ekler.
Mükemmel Sayı: Kendisi hariç bütün pozitif bölenlerinin toplamı kendisine eşit olan sayılardır.

Kendisi hariç bütün pozitif bölenlerinin toplamı kendisine eşit olan sayılara mükemmel sayı denir

Kaynak Linki : http://www.matematikciler.org/matematiksel-guzellikler/ilginc-bilgiler/625-mukemmel-sayilar.html

Kendisi hariç bütün pozitif bölenlerinin toplamı kendisine eşit olan sayılara mükemmel sayı denir

Kaynak Linki : http://www.matematikciler.org/matematiksel-guzellikler/ilginc-bilgiler/625-mukemmel-sayilar.html

Kendisi hariç bütün pozitif bölenlerinin toplamı kendisine eşit olan sayıla

Kaynak Linki : http://www.matematikciler.org/matematiksel-guzellikler/ilginc-bilgiler/625-mukemmel-sayilar.html

Kendisi hariç bütün pozitif bölenlerinin toplamı kendisine eşit olan sayılara mükemmel sayı denir

Kaynak Linki : http://www.matematikciler.org/matematiksel-guzellikler/ilginc-bilgiler/625-mukemmel-sayilar.html

Kendisi hariç bütün pozitif bölenlerinin toplamı kendisine eşit olan sayıla

Kaynak Linki : http://www.matematikciler.org/matematiksel-guzellikler/ilginc-bilgiler/625-mukemmel-sayilar.htm

Kodlar; 

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;

namespace Mükemmel_Sayılar
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }

        private void Form1_Load(object sender, EventArgs e)
        {

        }
        int sayi1=0;
        int sayi2=9999;
        private void button1_Click(object sender, EventArgs e)
        {
            int varmi = 0; //  mükemmel sayı olup olmadığı kontrol eder
            for (int i = sayi1; i < sayi2; i++) // sayı aralığını dönmek için
            {

                int toplam = 0;
                for (int j = 1; j < i; j++) // 1 den mevcut sayıya kadar bölenlerini çıkartmamız için
                {

                    if (i % j == 0) // sayının 1 den itibaren bölenlerini aratıyoruz
                        toplam += j; // bölenlerini bulup toplamaya başlıyoruz her döngüde
                }
                if (toplam == i) // toplam kendisine eşitse mükemmeldir
                {
                    listBox1.Items.Add(i); // mükemmel sayıyı yazdır
                    varmi = 1; // if sorgusunu geçtiği için mükemmel sayı
                }
            }

            if (varmi == 0) //  hala sıfır kaldığına göre bu hata olmalı
                MessageBox.Show("Bu aralıkta mükemmel sayı yok.");
        }
    }
}