רוטר - תונכה פשוטה בפסקאל

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

"תונכה פשוטה בפסקאל"

גירסת הדפסה

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

אשכול מספר 7243

M_Owen

10:43 01.11.03

תונכה פשוטה בפסקאל

התוכנית קולטת מס' שלם
(לא ידוע כמה ספרות)
ומחשבת את סכום הספרות שלו

שתף

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

האשכול	מחבר	תאריך כתיבה	מספר
מכתב- היה לי טעות קטנה ועכשיו תיקנתי :)	TheCoolMan	01.11.03 11:27	1
תודה	M_Owen	01.11.03 11:37	2
כן תיקנתי את זה... זה טוב עכשיו	TheCoolMan	01.11.03 11:40	3
10X	M_Owen	01.11.03 11:44	4
עכשיו עם תוכל עוד תוכנית קטנה......	M_Owen	01.11.03 11:45	5
מכתב	TheCoolMan	01.11.03 11:58	6

TheCoolMan

11:27 01.11.03

1. מכתב- היה לי טעות קטנה ועכשיו תיקנתי :)
בתגובה להודעה מספר 0

ערכתי לאחרונה בתאריך 01.11.03 בשעה 11:35 בברכה, TheCoolMan

program xxx;
var
num,mone,x:integer;
begin
writeln('enter number');
readln(num);
x:=0;
while num mod 10 <>0 do
begin
x:=num mod 10;
mone:=mone+x;
num:=num div 10;
end;
writeln(mone);
end.

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

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

M_Owen

11:37 01.11.03

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

אבל אני צריך את סכום הספרות

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

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

TheCoolMan

11:40 01.11.03

3. כן תיקנתי את זה... זה טוב עכשיו
בתגובה להודעה מספר 2

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

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

M_Owen

11:44 01.11.03

4. 10X
בתגובה להודעה מספר 3

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

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

M_Owen

11:45 01.11.03

5. עכשיו עם תוכל עוד תוכנית קטנה......
בתגובה להודעה מספר 3

תוכנית המדפיסה בסדר יורד את ריבועי כל המספרים בטבעיים בין 1 ל 100 (כולל)

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

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

TheCoolMan

11:58 01.11.03

6. מכתב
בתגובה להודעה מספר 5

ערכתי לאחרונה בתאריך 01.11.03 בשעה 11:59 בברכה, TheCoolMan

program xxx;
var
i,x:integer;
begin
for i:=100 downto 1 do
begin
x:=sqr(i);
write(' ',x);
end;
end.

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

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