Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Гаврилов
0 / 0 / 0
Регистрация: 28.05.2010
Сообщений: 21
1

Найти двузначное число, равное утроенному произведению его цифр

24.06.2010, 14:06. Просмотров 905. Ответов 4
Метки нет (Все метки)

найти двузначное число равное утроенному произведению его цифр
я вот решаю не получается:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
 Dim T, a, b, c As Integer
        T = 9
        Do
            T = T + 1
            a = T \ 10
            b = T - a * 10
            If T = (a * b) * (a * b) * (a * b) Then
                MsgBox (T)
             End If
        Loop While T <= 99
End Sub
Исправьте или сделайте пожалуйста
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.06.2010, 14:06
Ответы с готовыми решениями:

Дано двузначное число. Определить, кратна ли трем сумма его цифр
дано двузначное число. Определить кратна ли трем сумма его цифр.

Если к сумме цифр двузначного числа прибавить квадрат цифры единиц, то снова получится это двузначное число.
Если к сумме цифр двузначного числа прибавить квадрат цифры единиц, то снова получится это...

Найти двузначное число, равное утроенному произведению его цифр.Ответ: 15,24
Помогите решить задачку..мм?:cry: Найти двузначное число, равное утроенному произведению его...

Найти двузначное число, которое равняется утроенному произведению его цифр
Помогите пожалуйста!! 3.Найти двохзначне число, которое равняется строенном произведению его цифр

Найти трехзначное число, равное утроенному произведению его цифр
Найти трехзначное число, равное утроенному произведению его цифр. var a, b,c,d,e:integer; begin...

4
аналитика
здесь больше нет...
3353 / 1665 / 184
Регистрация: 03.02.2010
Сообщений: 1,219
24.06.2010, 14:39 2
по-моему, там не сказано, что произведение в кубе.
Остальное рабочее, переменные у тебя объявлены как Variant, кроме последней.
If T = (a * b) * (a * b) * (a * b) Then
Visual Basic
1
2
If T = 3*(a * b) Then
If T = (a * b) + (a * b) + (a * b) Then 'можно так
1
Гаврилов
0 / 0 / 0
Регистрация: 28.05.2010
Сообщений: 21
24.06.2010, 14:41  [ТС] 3
5466563634634
0
Vlanib
Частенько бываю
746 / 327 / 42
Регистрация: 20.06.2007
Сообщений: 854
24.06.2010, 14:43 4
Visual Basic
1
2
3
For i = 10 To 99
    If (i \ 10) * (i Mod 10) * 3 = i Then MsgBox i
Next
0
Гаврилов
0 / 0 / 0
Регистрация: 28.05.2010
Сообщений: 21
24.06.2010, 14:45  [ТС] 5
написал же оператор цикла Do)

Добавлено через 1 минуту
спасибо за ответ я то думал у меня с математикой проблем нет а с инфой...оказалось нооброт))спасибо большое очень помог
0
24.06.2010, 14:45
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.06.2010, 14:45

Подпрограммы. Найти наименьшее N-значное число, равное утроенному произведению своих цифр
Составьте программу нахождения наименьшего натурального N-значного числа x (x&gt;=10), равного...

Найдите трёхзначное число, равное удвоенному произведению его цифр
Решить задачи в qbasic

Найти натуральное N-значное число равное указанному произведению своих цифр
Составьте программу нахождения наименьшего натурального N-значного числа Х(Х&gt;=10), равному...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.