С помощью функции InputBox запрашивается целое число. Найти сумму цифр этого числа.

@XudaH · Регистрация: 04.05.2009

Студворк — интернет-сервис помощи студентам

Что-то смысла задачи не пойму.

@BasicMan · 13.05.2009, 16:36

Visual Basic
1
2
3
4
5
6
7
8
9
10
Dim InD as Long
Dim OutD as Integer
 
OutD=0
IntD=Val(InputBox("Input number"))
Do Until IntD>0
   OutD=OutD+IntD\10
   IntD=Fix(IntD/10)
Loop
msgbox OutD

@XudaH · 13.05.2009, 16:44 **[ТС]**

Что то 0 показывает (

@BasicMan · 13.05.2009, 16:47

Visual Basic
1
2
3
4
5
6
7
8
9
10
Dim InD as Long
Dim OutD as Integer
 
OutD=0
IntD=Val(InputBox("Input number"))
Do While IntD>0
   OutD=OutD+IntD\10
   IntD=Fix(IntD/10)
Loop
msgbox OutD

мал-мал ошибку давал )

первый вариант сразу даже в цикл не входит

@XudaH · 13.05.2009, 16:51 **[ТС]**

Вроде бы работает(хотя не уверен

), но смысл не понимаю что дожно быть.)) Не объяснишь?

@BasicMan · 13.05.2009, 16:55

сумма все цифор числа:
13=4
15=6
152=8
...
так выходит?

@XudaH · 13.05.2009, 16:56 **[ТС]**

А Все. Вот только ввел число 13 получилось 1 а не 4))

@BasicMan · 13.05.2009, 17:10

тогда так

Visual Basic
1
2
3
4
5
6
7
8
9
10
Dim InD as Long
Dim OutD as Integer
 
OutD=0
IntD=Val(InputBox("Input number"))
Do 
   OutD=OutD+IntD\10
   IntD=Fix(IntD/10)
Loop While IntD>0
msgbox OutD

@XudaH · 13.05.2009, 17:18 **[ТС]**

Сейчас проверю

Добавлено через 3 минуты 39 секунд
Нет все так же(

@BasicMan · 13.05.2009, 17:23

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Dim InD as Long
Dim OutD as Integer
 
OutD=0
IntD=Val(InputBox("Input number"))
Do 
   OutD=OutD+IntD\10
   IntD=Fix(IntD/10)
Loop While IntD>0
OutD=OutD+IntD
msgbox OutD

это последний вариант ))

@XudaH · 13.05.2009, 17:31 **[ТС]**

хех, все равно не правильно))

@BasicMan · 13.05.2009, 17:51

вот так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Dim InD as Long
Dim OutD as Long
 
OutD=0
IntD=Val(InputBox("Input number"))
Do 
   OutD=OutD+IntD\10
   IntD=Fix(IntD/10)
Loop While IntD>0
OutD=OutD+IntD
msgbox OutD

@XudaH · 13.05.2009, 18:10 **[ТС]**

хм.. ввожу число 1234 выдаёт 136, а по идее должно выдавать 10.

@BasicMan · 13.05.2009, 18:20

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Dim InD as Long
Dim OutD as Long
 
OutD=0
IntD=Val(InputBox("Input number"))
Do 
   OutD=OutD+IntD mod 10
   IntD=IntD\10
Loop While IntD>0
OutD=OutD+IntD
msgbox OutD

@XudaH · 13.05.2009, 18:28 **[ТС]**

Все. Огромное спасибо и извини что так напряг))

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@XudaH 13 / 13 / 0 Регистрация: 04.05.2009 Сообщений: 130

	С помощью функции InputBox запрашивается целое число. Найти сумму цифр этого числа. 13.05.2009, 16:06. Показов 3408. Ответов 14 Метки нет (Все метки) Что-то смысла задачи не пойму. 0

@XudaH 13 / 13 / 0 Регистрация: 04.05.2009 Сообщений: 130
	13.05.2009, 16:44 [ТС]
	Что то 0 показывает ( 0

@XudaH 13 / 13 / 0 Регистрация: 04.05.2009 Сообщений: 130
	13.05.2009, 16:51 [ТС]
	Вроде бы работает(хотя не уверен), но смысл не понимаю что дожно быть.)) Не объяснишь? 0

@BasicMan 19318 / 2626 / 84 Регистрация: 17.02.2009 Сообщений: 30,364
	13.05.2009, 16:55
	сумма все цифор числа: 13=4 15=6 152=8 ... так выходит? 0

@XudaH 13 / 13 / 0 Регистрация: 04.05.2009 Сообщений: 130
	13.05.2009, 16:56 [ТС]
	А Все. Вот только ввел число 13 получилось 1 а не 4)) 0

@XudaH 13 / 13 / 0 Регистрация: 04.05.2009 Сообщений: 130
	13.05.2009, 17:18 [ТС]
	Сейчас проверю Добавлено через 3 минуты 39 секунд Нет все так же( 0

@XudaH 13 / 13 / 0 Регистрация: 04.05.2009 Сообщений: 130
	13.05.2009, 17:31 [ТС]
	хех, все равно не правильно)) 0

@XudaH 13 / 13 / 0 Регистрация: 04.05.2009 Сообщений: 130
	13.05.2009, 18:10 [ТС]
	хм.. ввожу число 1234 выдаёт 136, а по идее должно выдавать 10. 0

@XudaH 13 / 13 / 0 Регистрация: 04.05.2009 Сообщений: 130
	13.05.2009, 18:28 [ТС]
	Все. Огромное спасибо и извини что так напряг)) 0