Hogyan lehet meghatározni, hogy n szám tökéletes vagy nem?

Ha az osztóinak az összege egyenlő a számmal, akkor tökéletes.

Mutasd be, hogy meddig jutottál, hadd lássuk, hol akadtál el, vagy hol siklik ki a programod.

https://www.youtube.com/watch?v=Lafu-Ua7ipk

Ez C++ban mutatja meg a megoldást, de gondolom ha megvan az alap ötlet, meg tudod oldani pascalban ...

@#2:

Kár volt rögtön a megoldással kezdeni, szerencsésebb lett volna, ha alkalmat adsz Kérdezőnek, hogy ismertesse a saját gondolatmenetét.

Ne privátba! Ha egy számot elosztasz egy másikkal, és az osztási maradéka 0, akkor nyilván osztót találtál, például:

if egyik mod masik = 0 then

      WriteLn(masik, 'osztója a megadott számnak.')

else

      WriteLn(masik, 'nem osztója a megadott számnak.');

A programban persze nem pont így kell felhasználnod a módszert.

3# A megoldásra volt kíváncsi. Igen jobb lett volna, ha azt tette volna ki, hogy "Nézzétek meg a próbálkozásomat, szerintetek mit rontottam el? Hogyan tudnám kijavítani? Egyátalán jó irányba indultam el?"

... de nem ezt tette. Plusz ez egy könnyen googlözhető kérdés és az, hogy itt tette fel a kérdést a megoldást várva és nem a googlön keresett rá sokat elmond arról, hogy mennyire érekli őt ez a probléma.

@#6:

Mélységesen egyetértek veled, annak ellenére, hogy ez bizonyos értelemben „csalás”. Tudható, hogy az első néhány tökéletes szám után hamar beleütközöl a számábrázolás korlátaiba, tehát már a számként való bevitel is problémás, nem beszélve az elpocsékolt gépidőről. Egy előre megadott táblázatban viszont stringekként is tárolhatsz akármekkora számokat, és egy szemvillanás alatt vizsgálható az azonosság. Lehet, hogy a tanár mást képzelt el, de a minimum, hogy plusz pont járjon a professzionális megoldásért...