Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 16.12.2021
Сообщений: 2

Дано целое положительное число К

16.12.2021, 18:29. Показов 1098. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дано целое положительное число К.
Вывести все члены геометрической прогрессии 1, 2, 4, 8,
меньшие числа К.
Исходные данные
5790
Пример верного решения
2
16 32 64 128 256 512 1024 2048 4096
Миниатюры
Дано целое положительное число К  
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
16.12.2021, 18:29
Ответы с готовыми решениями:

Дано целое положительное число
4. Дано целое положительное число. Вывести символы, изображающие цифры этого числа (в порядке слева направо).

Дано целое число. Вывести его строку-описание вида «отрицательное четное число», «нулевое число »,« положительное нечетн
Дано целое число. Вывести его строку-описание вида «отрицательное четное число», «нулевое число »,« положительное нечетное число »и т. д.

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

1
 Аватар для JuriiMW
5095 / 2661 / 2355
Регистрация: 10.12.2014
Сообщений: 10,060
17.12.2021, 04:58
Pascal
1
var k,n:longint;begin Read(k);n:=1;while n<k do begin write(n:10);n:=n shl 1;end;end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
17.12.2021, 04:58
Помогаю со студенческими работами здесь

Дано целое число N (> 1). Найти наибольшее целое число K, при котором выполняется неравенство 3K < N.
Дано целое число N (&gt; 1). Найти наибольшее целое число K, при котором выполняется неравенство {3}^{k} &lt; N. как возвести в степень, и...

Дано целое число N(>1) вывести на именьшее целое K,при котором выполняется неравенство
Дано целое число N(&gt;1) вывести на именьшее целое K,при котором выполняется неравенство 3K&gt;N, и само значение 3K.

Дано N действительных чисел. Найти минимальное положительное число и максимальное отрицательное число
Дано N действительных случайных чисел в диапазоне от -100 до 100. Найти минимальное положительное число и максимальное отрицательное число.

Дано целое число N (> 1). Вывести наибольшее целое K...
Дано целое число N (&gt; 1). Вывести наибольшее целое K, при котором выполняется неравенство 3K &lt; N, и само значение 3K

Проверить, является ли введенное целое положительное число простым
Проверить, является ли введенное целое положительное число простым. Простым называется число, которое имеет только два делителя (единицу и...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Доступность команды формы по условию
Maks 07.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .
Уведомление о неверно выбранном значении справочника
Maks 06.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt
8Observer8 05.04.2026
Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .
AkelPad-скрипты, структуры, и немного лирики..
testuser2 05.04.2026
Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II
kumehtar 04.04.2026
Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизитов табличной части документа
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru