הכל בכותרת

איזה מספר?
מספר של איזה מספרים?

[התמונה הבאה מגיעה מקישור שלא מתחיל ב https ולכן לא הוטמעה בדף כדי לשמור על https תקין: http://www.maxthon.com/logo/maxthon2_2.gif]

99=2
435=3
וכו'

כל עוד המספר שונה מ -0
- תחלק את המספר ב 10 בלי שארית
- תגדיל את המונה ב 1

[התמונה הבאה מגיעה מקישור שלא מתחיל ב https ולכן לא הוטמעה בדף כדי לשמור על https תקין: http://www.maxthon.com/logo/maxthon2_2.gif]

תהפוך את המספר למחרוזת והאורך של המחרוזת יתן לך את התשובה.

איך עושים את זה? (השני)

קוד:

 length(inttostr(i)) 

קוד:

str( value , str1 )

הפרוצדורה תשים בתוך str1 את הערך הסטרינגי של value. לא זכור לי שקיימת בפסקל פונקציה שממש מחזירה ישר את הערך הסטרינגי.
אגב, לפותח האשכול, אם זה לצרכי הלימודים אני ממליץ לך לא לעשות זאת. קרה לחבר שלי שהוא עשה את זה, אך כוונת המשורר בשאלה הייתה להשתמש בdiv וmod, לכן ירדו לו נקודות (המבחן היה מבחן מגן).

היי!
זה אכן לצרכי לימודים.. אם תוכל לתת לי קוד זה יהיה נהדר (ניסיתי לבנות לבד אבל לא הצלחתי )

קוד:

  num:=12345;
  count:=1;
  while num>10 do
  begin
	num:=num div 10;
	inc(count);
  end;
  writeln(count);

תודה.. ואגב אם תסתכל רשמתי שניסיתי!
ועוד דבר, יש בעיה בקוד הוא עובד כשאני מכניס מספר דו ספרתי, אבל במספר תלת ספרתי ומעלה זה נכנס ללולאה אין סופית כנראה (הקומפיילר נתקע TP7)

קוד:

program fd;
var
  num,count:integer;
begin
  num:=123456;
  count:=1;
  while num>10 do
  begin
	num:=num div 10;
	inc(count);
  end;
  writeln(count);
  readln;
end.

זה לא טוב.. ל1000 הוא רושם 3

אוקיי שיניתי את התנאי של הלולאה ל =< וזה הסתדר

זה מה שקורה כשכותבים מהר מבלי לעבור על הקוד קודם..
בכל אופן, הקוד שנתתי לך לא יוצר ולא יצר שום לולאה אינסופית...