сумма цифр введенного числа

[Student1992]

Добрый день, в общем нашел следующую задачу: вводить число - надо найти сумму его цифр.
например введем число 123=1+2+3=6
вот как решил ее я:

program task2;
uses crt;
var
   number:string;
function numbersString(s:string):integer;
 var sum,i:integer;
 begin
  sum:=0;
  for i:=1 to length(s) do begin
    sum:=sum+StrToInt(s[i]);
  end;
  numbersString:=sum;
end;
begin
write('Введите число: ');
readln(number);
writeln(numbersString(number));
end.

как можно ее решить по другому?

[rubius2008]

Через целочисленное деление (div) и остаток от деления (mod)

[Вадим Мошев]

Сообщение от rubius2008

Через целочисленное деление (div) и остаток от деления (mod)

Кстати, можно обойтись и без целочисленного деления, используя лишь остаток от деления.

[Poma][a]

Сообщение от Вадим Мошев

Кстати, можно обойтись и без целочисленного деления, используя лишь остаток от деления.

заинтересовал) а как?

[Хамяг]

var
  k,c: Integer;
begin
  Readln(c);
  k:=0;
  while c > 0 do
  begin
    k:=k+c mod 10;
    c:=c div 10;
  end;
  Writeln(k);
  Readln;
end.

[Student1992]

Не успел скинуть) Но уже решил.

program task2;
uses crt;
var
   number:integer;
function sumNumber(num:integer):integer;
var sum,buff:integer;
begin
sum:=0;
buff:=num;
 while buff <> 0 do
  begin
      sum:=sum + buff mod 10;
      buff:=buff div 10; 
  end;
  sumNumber:=sum;
end;
begin
write('Введите число: ');
readln(number);
 writeln('Сумма цифр в числе: ',sumNumber(number)); 
end.

[Student1992]

только вопрос появился, минус ко всему число относиться? или только к одной цифре?

[Poma][a]

Сообщение от Student1992

только вопрос появился, минус ко всему число относиться? или только к одной цифре?

в смысле? ты про отрицательные числа? если да тогда сумма цифр все равно положительная, и употреби функцию abs.

[Вадим Мошев]

Сообщение от Poma][a

заинтересовал) а как?

Вообще, знаете, мне кажется, что этот способ открыл я сам (не выставляю себя никуда).

Но, внимание: алгоритм находит ПОЛНУЮ СУММУ введённого числа, то есть суммирование цифр числа и результата до тех пор, пока не будет получено число ИЗ ОДНОГО РАЗРЯДА, то есть, если мы ввели число 8888, то на выходе моего алгоритма мы получим не 32, а 5.
А вот и код

var n: integer // например

begin
	read(n):
	if (n mod 9) = 0
		then
		 Write(9)
		
		else
		 Write(n mod 9);
		 
end.

[Poma][a]

Сообщение от Вадим Мошев

Вообще, знаете, мне кажется, что этот способ открыл я сам (не выставляю себя никуда).

Но, внимание: алгоритм находит ПОЛНУЮ СУММУ введённого числа, то есть суммирование цифр числа и результата до тех пор, пока не будет получено число ИЗ ОДНОГО РАЗРЯДА, то есть, если мы ввели число 8888, то на выходе моего алгоритма мы получим не 32, а 5.
А вот и код

var n: integer // например

begin
	read(n):
	if (n mod 9) = 0
		then
		 Write(9)
		
		else
		 Write(n mod 9);
		 
end.

не( это чё то не то....