רוטר - בעיה קטנה בפסקל:

יומן פעילות	לוח שנה	מבזקי חדשות	תקנון	RSS	כותרות	כותרות לפי תגובה	ניקוי קוקיז	IP	להורדת אפליקציה
eBay	AliExpress	GearBest	Amazon	Booking	Kiwi	SkyScanner	Trip Advisor

"בעיה קטנה בפסקל:"

גירסת הדפסה

קבוצות דיון פיתוח, תיכנות ובניית אתרים נושא #7340	מנהל סגן המנהל מפקח Winner צל"ש מומחה

אשכול מספר 7340

TheCoolMan

18:38 12.11.03

בעיה קטנה בפסקל:

מספר מושלם הוא מספר השווה לסכום מחלקיו לגודמא: 1+2+3=6
כתוב תוכנית אשר קולט מספר מסוים והפלט הוא הודעה אם הוא מספר מושלם או לא.
תודה לעוזרים

שתף

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

האשכול	מחבר	תאריך כתיבה	מספר
לא הבנתי ..	aviel_xxx	12.11.03 18:43	1
ממש לא.	E-do	12.11.03 19:02	2
תודה\	TheCoolMan	12.11.03 19:23	3

aviel_xxx
חבר מתאריך 1.9.02
1335 הודעות

18:43 12.11.03

1. לא הבנתי ..
בתגובה להודעה מספר 0

בעצם כל דבר כמעט הוא מספר מושלם חוץ מ 1
כאילו 2 אז זה 1 +1
לא ממש הבנתי את הקטע הזה אם המספר מושלם

ועוד דבר איזה כיתה אתה ? אפשר לעשות את התוכנית בכמה דרכים
אני חשבתי על IF ..

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

E-do
חבר מתאריך 29.10.03
2160 הודעות

19:02 12.11.03

2. ממש לא.
בתגובה להודעה מספר 1

המחלקים של 3 הינם 1 ו-3, סכומם הוא 4
המחלקים של 4 הינם 1,2 ו-4, סכומם הוא 6
וכן על זו הדרך.
לעומתם - המחלקים של 6 הם 1,2 ו-3 וגם סכומם הוא 6
אין הרבה מספרים כאלה בכלל.
ניתן לבדוק בצורה כזאת

Program check;
uses crt;
var a,i,j:integer;
begin
readln(a);
j:=1;
for i:=2 to a do
if a div i = 0 then j:=j+i;
if j=a then write('מספר מושלם')
else write('מספר לא מושלם');
end.

אפשר לייעל יותר, אבל זה יעבוד.

-----------------
בברכה,
e-do

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

TheCoolMan

19:23 12.11.03

3. תודה\
בתגובה להודעה מספר 2

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד