שלום לכל חברי הפורום!

אני שובר את הראש כבר כמה זמן, וקיוויתי שתוכלו לעזור לי:

1. כתוב תוכנית הקולטת מספר ומציגה כפלט את סכום ספרותיו.

2. האם ספרות המספר ממויינות בסדר עולה?

בתודה מראש

program digits;
var
	sum:integer;
	num:integer;
	digit:integer;
	isOrdered:boolean;
begin
	readln(num);
	isOrdered := true;
	digit := num mod 10;
	sum := digit;
	num := num div 10;
	while (num>0) do
		begin
		if (digit >(num mod 10)) then
			isOrdered := false;
		digit := num mod 10;
		sum := sum + dight;
		num := num div 10;
		end;
	println ("sum of digits is: ",sum);
	if (isOrdered) then
		pritnln ("digits are ordered");
	else pritnln ("digits are not ordered");
end.

הטאבים לא מוצגים כמו שצריך, מקווה שתבין.

נכון, חוץ מהסתייגות קטנה... אם הכוונה ל"סדר עולה ממש" (כלומר, למשל המספר 555 אינה מוגדר כספרות עולות) אז צריך להחליף שם שורה אחת:

if (digit >=(num mod 10)) then

תודה רבה, עזרתם לי מאוד!

נכון, חוץ מהסתייגות קטנה... אם הכוונה ל"סדר עולה ממש" (כלומר, למשל המספר 555 אינה מוגדר כספרות עולות) אז צריך להחליף שם שורה אחת:

if (digit >=(num mod 10)) then

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

תודה רבה, עזרתם לי מאוד!

ליתר דיוק, Component עזר לך מאוד. אני עזרתי קצת, אם בכלל... אבל בכיף