Cумма цифр целого числа К

[Licwin]

помогите найти сумму цифр целого числа К, не используя оператор цикла

[unbanned]

ну а если не цикл, а goto, например?

label 1;
var
  s: string;
  i, n, e, sm: integer;

begin
  readln(n);
  str(n, s);
  i := length(s);
  sm := 0;
  1: val(s[i], n, e);
  sm := sm + n; 
  i := i - 1;
  if (i < length(s)) and (i <> 0) then goto 1;
  writeln(sm);
end.

вот так как-нить

[Licwin]

и так сойдет))))

[evg_m]

расписать цикл в строку

s:=(k div   1000000000000000)
  + (k mod 1000000000000000) div 100000000000000
  + (k mod 100000000000000)  div 10000000000000
......................
  + (k mod 100)              div 10
  + (k mod 10)               div 1 ;

[unbanned]

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

расписать цикл в строку

s:=(k div   1000000000000000)
  + (k mod 1000000000000000) div 100000000000000
  + (k mod 100000000000000)  div 10000000000000
......................
  + (k mod 100)              div 10
  + (k mod 10)               div 1 ;

дак а количество цифр не оговаривается... с какого делителя начинать? или наугад с триллиона?
тогда уже с 10000 начинать... ну или 1000000000

[Serge_Bliznykov]

дак а количество цифр не оговаривается... с какого делителя начинать? или наугад с триллиона?

т.к. тема в разделе Паскаль,
то вполне можно ограничится тем типом данных, который есть в Паскале.
либо скромный word (65535 - поэтому хватит делителя 10000)

либо, это longint. максимальное значение: 2147483647
следовательно делитель начинать с 1000000000


p.s. а если вдруг допустить, что программа нужна под Win32 (FreePascal, Delphi),
тогда тип данных Int64, максимальное число 9223372036854775807
и прийдётся брать в качестве начального делитель 1000000000000000000

вот и всё...


p.s. я тоже уверен, что в этой задаче подразумевался вариант ответа, предложенный evg_m

[unbanned]

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

p.s. я тоже уверен, что в этой задаче подразумевался вариант ответа, предложенный evg_m

ну да решение рациональное... только смущает количество текста которое необходимо написать

[eoln]

А рекурсию можно?

function sum(x: longint): integer;
begin
  if x < 10 then 
    sum := x
  else 
    sum := x mod 10 + sum(x div 10)
end;

begin
  write(sum(15762));
  readln
end.

P.S. Для отрицательных чисел просто взять модуль...

[Serge_Bliznykov]

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

А рекурсию можно?

eoln, ага. Точно!
я лично упустил этот вариант из виду.
поэтому моя уверенность насчёт того, что преподаватель ожидает ответ с mod и div, сильно пошатнулась...

p.s. раньше видел подобные задачи в трактовке: найти ....<что-то про цифры> для трёхзначного (или двухзначного, или четырёх.., не суть важно, главное, указано количество цифр) целого числа...
тогда MOD и DIV без всяких разговоров... может TC неверно процитировал задание?...