Olvassunk be egész számot és vizsgájuk meg, hogy tökéletes szám-e. Egy szám akkor tökéletes, ha az osztóinak összege +1 megegyezik a számmal. A tökéletes szám keresésénél részeredményeket jelenítünk meg. 1000000 alatt összesen négy tökéletes szám van: 6, 28, 496, 8128.
A feladat megoldása:
private void Vizsgálat_Click(object sender, EventArgs e)
{
int osztó, összeg = 0, szám;
if (textBox1.Text != "")
{
szám = Int32.Parse(textBox1.Text);
for (osztó = 2; osztó <= szám / 2; osztó++)
{
if (szám % osztó == 0)
{
listBox1.Items.Add(osztó);
összeg += osztó;
}
}
textBox2.Text = összeg.ToString();
textBox3.Text = (összeg+1).ToString();
textBox4.Text = szám.ToString();
if ((összeg + 1) == szám)
textBox5.Text = "tökéletes szám ";
else
textBox5.Text = "nem tökéletes szám ";
}
Vizsgálat.Enabled = false;
}
private void Törlés_Click(object sender, EventArgs e)
{
textBox1.Text = ""; textBox2.Text = "";
textBox3.Text = ""; textBox4.Text = "";
textBox5.Text = "";
listBox1.Items.Clear();
Vizsgálat.Enabled = true;
}
A program futási eredményei:
