VPF::подскажите алгоритм суммы цифр в 3-хзначном числе

Sun_Burn

Дата 19.12.2006, 22:56 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 19.12.2006

Репутация: нет
Всего: нет

пытаюсь сделать посредством div и mod...но что-то <вырезал> не получается...

sergejzr

Дата 19.12.2006, 22:58 (ссылка)

(нет голосов)

Загрузка ...

Un salsero
Group Icon

Профиль
Группа: Админ
Сообщений: 13285
Регистрация: 10.2.2004
Где: Германия г .Ганновер

Репутация: 4
Всего: 360

http://forum.vingrad.ru/index.php?showtopi...st&p=886641

Добавлено @ 22:59

Цитата(volvo877 @ 12.10.2006, 16:06

)

Код


writeln((n div 100) + ((n div 10) mod 10) + (n mod 10));

Добавлено @ 23:00
И не ругайся неприличными словами!

--------------------

Me.
FB.
LinkedIn.
ORCID.
YT.

Akina

Дата 20.12.2006, 00:32 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 20
Всего: 454

Код


Num = 325
Sum=0
Do While Num > 0
    Sum = Sum + (Num Mod 10)
    Num = Num Div 10
Loop

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

V.A.KeRneL

Дата 20.12.2006, 20:09 (ссылка)

(нет голосов)

Загрузка ...

Vadim A. Kazantsev

Профиль
Группа: Участник
Сообщений: 291
Регистрация: 3.12.2006
Где: Moscow, Russia

Репутация: 1
Всего: 14

Sun_Burn, пожалуйста, при получении исчерпывающей или удовлетворяющей тебя информации, помечай задачу как решённую! smile

Это сообщение отредактировал(а) V_A_KeRneL - 29.12.2006, 15:11

--------------------

«C'est un pense-creux d'ici. C'est le meilleur et le plus irascible homme du monde...» © Ф.М. Достоевский, «Бесы»
---/)/)---(\.../)---(\(\
--(':'=)---(=';'=)---(=':')
(")(")..)-(").--.(")-(..(")(")

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Алгоритмы \| Следующая тема »