שלום אני צריך עזרה בפירוק מספר, למשל

אם יש לי את המספר 12345

אני רוצה לפרק את המספר ל5 חתיכות. אני יודע שצריך להשתמש ב DIV ו MOD אבל אני לא כל מסתדר בזה. תודה לעוזרים...

אם אפשר גם הסבר קטן מ MOD עושה ו DIV עושה

אתה רוצה להדפיס כל מספר בנפרד?

קוד:

Program fresh;
  Var
	a:integer;
  Begin
	Readln(a);
	While (a mod 10 > 0) Do
	  Begin
		Writeln(a mod 10);
		a:=a div 10;
	  End;
  End.
  

אממ זה הפיתרון שלימדו אותנו בבית ספר לפחות ממה שאני זוכר
אבל תהיה עם הפיתרון הזה בעיה עם מספרים שמכילים את הספרה 0 באמצע אז אתה יכול פשוט לקלוט אתהמספר כstring ולהדפיס כל תו בנפרד. (a[1] a[2] וכ')

DIV מחלק ללא שארית לדוגמא אם תרצה לחלק את המספר 118 ב10
אז אתה עושה 118/10 יוצא לך 11 ושארית 8 ( 11.8)
אז שתעשה

קוד:

 118 div 10 

תקבל 11 בלבד

mod עושה את הפעולה ההפוכה הוא נותן לך את השארית
לדוגמא:

קוד:

 118 mod 10 

יתן 8

חתימתי העצומה בגודלה הוסרה ע"י השליט הבלתי מעורער שימי, למי שיש בעיה שיפנה אליו.


ד אַל תַּעַן כְּסִיל כְּאִוַּלְתּוֹ פֶּן תִּשְׁוֶה לּוֹ גַם אָתָּה. ה עֲנֵה כְסִיל כְּאִוַּלְתּוֹ פֶּן יִהְיֶה חָכָם בְּעֵינָיו

עזרת לי מאוד