Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 16.12.2012
Сообщений: 14

Найдите все числа от 1 до n, которые можно получить суммой различных степеней тройки

15.04.2013, 14:11. Показов 1275. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Помогите пожалуйста)
Найдите все числа от 1 до n, которые можно получить суммой различных степеней тройки.
Заранее спасибо)
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
15.04.2013, 14:11
Ответы с готовыми решениями:

Найти количество различных чисел, которые можно получить из числа ровно за C команд
#include <iostream> using namespace std; int c(int x, int y) { if (x == y || y == 0) return 1; else if (y > x) return 0; ...

Вывести на экран все трехзначные числа, которые можно получить из цифр данного числа
Дано трехзначное число. Вывести на экран все трехзначные числа, которые можно получить из цифр данного числа Если вводим 221 или...

нахождение все возможных комбинации чисел которые можно получить из одного числа.
Помогите плиз написать программу которая находит все возможные комбинации чисел которые можно получить из одного числа. Например: Вводим...

3
 Аватар для abit
870 / 529 / 149
Регистрация: 03.02.2013
Сообщений: 1,859
15.04.2013, 16:49
Найдите все числа от 1 до n, которые можно получить суммой различных степеней тройки.
что то я не понял, в исходной формулировке это тоже самое, что найти все числа 1..n, кратные 3, или есть какие-то подводные камни, что так завернули условие?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
    i,n:dword;
begin
    write('input n = ');
    readln(n);
    i:=3;
    while (i<=n) do
    begin
        write(i,' ');
        i+=3;
    end;
    writeln();
    readln();
end.
хотя если вдуматься ещё более внимательно
можно получить суммой различных степеней тройки.
можно со 100% вероятностью ответить - ВСЕ ЧИСЛА от 1..n в можно получить суммой различных степеней... 30=1, складывай хоть до посинения до нужного n единицы
0
0 / 0 / 0
Регистрация: 16.12.2012
Сообщений: 14
15.04.2013, 17:00  [ТС]
фишка в том, что степени тройки различны, и некоторые числа не получаются, например 6
0
0 / 0 / 2
Регистрация: 18.04.2013
Сообщений: 20
18.04.2013, 02:26
Смысл алгоритма, что при представлении числа в трёхзначной системе, в записи числа не должно быть цифр 2.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var n, c, i: longint;
 
function isGood(n: longint): boolean;
begin
    isGood := false; {пусть число "нехорошее"}
    while n>0 do begin
        if n mod 3 = 2 then exit; {мы правы}
        n := n div 3;
    end;
    isGood := true; {всё-таки "хорошее"}
end;
 
begin
    readln(n);
    for i := 1 to n do
        if isGood(i) then write(i, ' '); {пишем "хорошие" числа}
    readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
18.04.2013, 02:26
Помогаю со студенческими работами здесь

Дано натуральное число. Получить все пифагоровы тройки, натуральные числа которых не превосходят N
Дано натуральное число и получить все пифагоровы тройки, натуральные числа которые не превосходит N. Начал недавно изучать JS. Подскажите...

Количество различных рациональных чисел которые можно получить роставляя скобки
Обозначим i-е простое число как Рi (Р1=2, Р2=3, Р3=5 и т.д.). Для данного числа n рассмотрим выражение: Р1 / Р2 / Р3 / ... / Рn. Напишите...

Получить все числа, не превышающие заданного числа n, которые делятся без остатка на все свои цифры
получить все числа не превышающие заданного числа n, которые делятся без остатка на все свои цифры.

Найдите все двухзначные числа которые делятся на n
Найдите все двухзначные числа которые делятся на n

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


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий
8Observer8 02.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&amp;d=1772460536 Одним из. . .
Реалии
Hrethgir 01.03.2026
Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни
kumehtar 27.02.2026
Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten
8Observer8 27.02.2026
Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru