сложение цифр

[densan]

По моему простая программа, тока никак не чё то не додумаю. Задача в следующем: необходимо найти сумму цифр целого числа. Заранее спасибо за помош.

[mihali4]

Ну и что же тут сложного?
Как вариант - переводим число в строку, поочередно берем символы, переводим их в цифру и складываем...

[puporev]

Или в цикле wile N>0 do
делим число на 10 и складываем полученные результаты.

[densan]

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

Ну и что же тут сложного?
Как вариант - переводим число в строку, поочередно берем символы, переводим их в цифру и складываем...

Это понятно, у меня не получается это сделать для любого числа, я могу посчитать сумму например для 3 значного числа, а если ввести 4,5... значное, то как, чтоб прогу не переписывать.

[puporev]

var N:string;//наше число
     sum,i,t,c:integer;
begin
sum:=0;
for i:=1 to length(N) do
    begin
      val(s[i],t,c);
      sum:=sum+t;
    end;

[_SERGEYX_]

var i, res: integer; s: string;
begin
  res := 0;
  i := 120903405;
  s := IntToStr(i);
  for i := 1 to Length(s) do res:=res+strtoint(s[i]);
  ShowMessage(IntToStr(res));

хе-хе. Уже в третьем посте пишу по сути один и тот же код.

[puporev]

i := 120903405;
s := IntToStr(i);

Зачем две строчки, если число сразу можно ввести строкой, причем любой длины.

[_SERGEYX_]

Это я чтоб наглядней было

[Serge_Bliznykov]

ну, чтобы "добить" тему - решение, основанное на [см. пост #3 от puporev] делении числа на 10 и получение остатков (т.е. суммируем по одной цифре):

var Num : longint; {наше число}
    MySum, OneDigit : integer;
begin
  WriteLn;
  Write('Vvedite chislo: ');
  Readln(Num);
  MySum := 0;
  while Num>0 do begin
      OneDigit := Num mod 10;
      Num := Num div 10;
      MySum := MySum + OneDigit;
  end;
  WriteLn('Summa ravna ',MySum:1);
  Readln
end.

[densan]

ну теперь точно тема закрыта