Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.03.2011, 13:31   #1
Джиган
 
Регистрация: 07.02.2011
Сообщений: 7
По умолчанию Задача, требующая поразмыслить

Ребята, очень нужна помощь по задачке.
Дано натуральное число.
Вычислить кол-во всех цифр числа;
сумму цифр кратных 3;
произведение больше цифры X.

Дали подсказку: чтобы получить цифры в VBA необходимо делить число на 10 (знак "\"), пока оно не станет равно 0. Таким образом остаток - это и будут полученные цифры. И с ними необходимо произвести выше указанные операции.
Всем заранее спасибо.
Джиган вне форума Ответить с цитированием
Старый 03.03.2011, 13:39   #2
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

Без деления не годится?
Код:
Sub tt()
x = 1254788963
MsgBox Len(x)
End Sub
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума Ответить с цитированием
Старый 03.03.2011, 13:56   #3
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

у Вас нет задач по-проще?
об эту можно мозг сломать. даже не знаю, справиться ли кто здесь...
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 03.03.2011, 14:47   #4
MCH
Форумчанин
 
Регистрация: 21.11.2010
Сообщений: 326
По умолчанию

похожие темы:
http://www.programmersforum.ru/showthread.php?t=139966
http://www.programmersforum.ru/showthread.php?t=140131
MCH вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
webbrowser и proxy требующая пароль Romer9999 Работа с сетью в Delphi 1 18.04.2010 15:50
Программа Навител Навигатор версия 3.2 не требующая регистрации Laserboy Софт 0 29.09.2009 23:53