Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Альбина С.
0 / 0 / 0
Регистрация: 08.12.2011
Сообщений: 29
1

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

24.11.2012, 14:24. Просмотров 926. Ответов 2
Метки нет (Все метки)

Найти двузначное число, обладающее тем свойством, что куб суммы его цифр равен квадрату самого числа
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.11.2012, 14:24
Ответы с готовыми решениями:

Найти такое двузначное число, что куб суммы его цифр равен квадрату самого числа
Найти двузначное число, обладающее тем свойством, что куб суммы его цифр равен квадрату самого...

Найти двузначное число, обладающее тем свойством, что куб суммы его цифр равен квадрату самого числа
Найти двузначное число, обладающее тем свойством, что куб суммы его цифр равен квадрату самого...

Найти двузначное число, обладающее тем свойством, что куб суммы его цифр равен квадрату самого числа
Найти двузначное число, обладающее тем свойством, что куб суммы его цифр равен квадрату самого...

Найти двузначное число, обладающее тем свойством, что куб суммы его цифр равен квадрату самого числа
Найти двузначное число, обладающее тем свойством, что куб суммы его цифр равен квадрату самого...

Найти двузначное число, куб суммы цифр которого равен квадрату самого числа
Найти двузначное число, обладающее тем свойством, что куб суммы его цифр равен квадрату самого...

2
Апострофф
Заблокирован
24.11.2012, 15:11 2
Visual Basic
1
MsgBox 27


Добавлено через 16 минут
Ой, наверно решение надо?
Visual Basic
1
2
3
4
5
6
7
8
Sub main()
Dim a As Long, b As Long
For a = 1 To 9
  For b = 0 To 9
    If (a + b) ^ 3 = (a * 10 + b) ^ 2 Then MsgBox a * 10 + b
  Next b
Next a
End Sub
1
Catstail
Модератор
25401 / 13031 / 2430
Регистрация: 12.02.2012
Сообщений: 21,272
24.11.2012, 15:15 3
Решение уважаемого Апостроффа, конечно, очень лаконичное. Но если детальнее, то:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function task() As integer
  For i%=1 to 9
       For j%=0 to 9
            if (i%+j%)^3 = (10*i%+j%)^2 then
               task=(10*i%+j%)
               Exit function
            End if
       Next j%
    Next i% 
End Function
 
Sub main
      MsgBox Cstr(Task())
End sub
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.11.2012, 15:15

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

Определить, что куб суммы цифр числа равен квадрату числа
Кто может решите пожалуйста задачу с помощью циклов. Задание 5: Пользователь вводит целое число...

Цикл: Найти числа в диапазоне 100-10000, для которых куб суммы цифр равен значению самого числа...
Прошу помочь с программой в C++ и исправить ее: Найти числа в диапазоне 100-10000, для которых...


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

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

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