Сумма цифр числа

[ZOD]

Есть, например, число 371. Как посчитать сумму цифр, т.е. 3+7+1?

[san*]

Можна по-разному. Первое что пришло в голову делить нацело на сотни, потом отнять от числа результат*100, результат делить на десятки и т.д
Можно преобразовать в текст, выдергивать каждый символ и преобразовав их в числовое значение сложить.
Я думаю что есть и другие способы

[Vitaly1]

b=cstr(371)
s=0
for i=1 to len(b)
s=s+val(mid(b,i,1))
next i

[san*]

b=cstr(371)
s=0
for i=1 to len(b)
s=s+val(mid(b,i,1))
next i

Ну да... что-то вроде этого.

[tyomitch]

Эх, строковые любители...

Код: Выделить всё

n = 371: s = 0
While n > 0
    s = s + (n Mod 10)
    n = n \ 10
Wend


[Samovar]

b=cstr(371)
s=0
for i=1 to len(b)
s=s+val(mid(b,i,1))
next i

или

b=cstr(371)
s=0
for i=1 to len(b)
s=s+asc(mid(b,i,1))-48
next i

[alibek]

tyomitch, строки они проще

[tyomitch]

Они хороши там, где они естественны, но имхо приплетать их для арифметических операций - бред полный.
Ср. http://thedailywtf.com/archive/2004/09/14.aspx , http://thedailywtf.com/archive/2004/09/07/1587.aspx

[alibek]

Так уж и бред
Вот помню, был молодой и зеленый, и подобный подход казался мне вполне нормальным
А уж в ZX Spectrum в бейсик был встроен полноценный эвалуатор, так там я строки вообще за здрасти использовал.