0 / 0 / 0
Регистрация: 22.05.2014
Сообщений: 13

Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, которые являются степенью двойки

22.05.2014, 22:47. Показов 5152. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, которые являются степенью двойки. Проверку, является ли число степенью двойки, сделать с помощью процедуры пользователя.
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
22.05.2014, 22:47
Ответы с готовыми решениями:

Дан натуральный отрезок чисел [A,B].Найти те числа этого отрезка, суммы цифр которых больше заданного числа Х.
Дан натуральный отрезок чисел . Найти те числа этого отрезка, суммы цифр которых больше заданного числа Х. Проверку, является ли сумма цифр...

Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, суммы делителей которых больше заданного чи
Дан натуральный отрезок чисел . Найти те числа этого отрезка, суммы делителей которых больше заданного числа Х. Проверку, является ли сумма...

Дан натуральный отрезок чисел [A, B]. Найти те числа этого отрезка, которые оканчиваются на 3
дан натуральный отрезок чисел . Найти те числа этого отрезка, которые оканчиваются на 3

3
908 / 756 / 833
Регистрация: 06.09.2013
Сообщений: 1,561
23.05.2014, 17:07
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
function f(i: integer): boolean;
var
  k: real;
begin
  k := i;
  while k > 1 do
    k := k / 2;
  result := (k = 1)
end;
 
var
  A, B, i: integer;
 
begin
  write('Введите A и B:');
  readln(a, b);
  for i := A to B do
    if f(i) then write(' ', i)
end.
1
0 / 0 / 0
Регистрация: 22.05.2014
Сообщений: 13
29.05.2014, 23:02  [ТС]
это решение через функцию, а надо через procedure
обычное решение выглядит так
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Var a,b,p,x,k:Integer;
BEGIN
Writeln('Ввести концы отрезка');
Readln(a,b);
If a>b Then begin x:=a; a:=b; b:=x; end; {если начало отрезка введено больше конца}
k:=0; {счетчик искомых чисел}
Writeln('');
For x:=a to b do
   Begin
   p:=1;  {для нахождения произведения}
   While p<x do p:=p*2; {пока произведение меньше числа х}
   If p=x  {после выполнения цикла: если р=х, то}
       Then Begin
            Writeln (p); {выводим найденное число}
            k:=k+1; {и считаем, что одно число уже вывели}
            End;
   End;
If k=0  {если счетчик искомых чисел остался равен 0, то нужных чисел нет}
   Then Writeln('Степеней 2 на данном отрезке нет');
End.
0
908 / 756 / 833
Регистрация: 06.09.2013
Сообщений: 1,561
29.05.2014, 23:58
Лучший ответ Сообщение было отмечено Sveta789 как решение

Решение

Цитата Сообщение от Sveta789 Посмотреть сообщение
с помощью процедуры
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure f(i: integer; var bln: boolean);
var
  k: real;
begin
  k := i;
  while k > 1 do
    k := k / 2;
  bln := (k = 1)
end;
 
var
  A, B, i: integer;
  bln: boolean;
 
begin
  writeln('Введите A и B: ');
  readln(a, b);
  for i := A to B do begin
    f(i, bln);
    if bln then write(' ', i)
  end
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
29.05.2014, 23:58
Помогаю со студенческими работами здесь

Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, суммы цифр которых больше заданного числа Х
Дан натуральный отрезок чисел . Найти те числа этого отрезка, суммы цифр которых больше заданного числа Х.

Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, суммы цифр которых есть числа нечетные
Дан натуральный отрезок чисел . Найти те числа этого отрезка, суммы цифр которых есть числа нечетные. Прекратите дублировать темы!

Дан натуральный отрезок [a,b]. Вывести из этого отрезка все числа кратные 7
Дан натуральный отрезок . Вывести из этого отрезка все числа кратные 7.

Дан массив из n целых неотрицательных чисел. Найти количество элементов этого массива, которые являются степенью пятерки
Дан массив из n целых неотрицательных чисел. Найти количество элементов этого массива, которые являются степенью пятерки. Необходимо также...

Найти сумму только тех чисел, которые являются степенью двойки
С клавиатуры вводится n произвольных натуральных чисел, найти сумму только тех чисел, которые являются степенью двойки. Причём...


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

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

Новые блоги и статьи
Unity 4D
GameUnited 13.06.2025
Четырехмерное пространство. . . Звучит как что-то из научной фантастики, правда? Однако для меня, как разработчика со стажем в игровой индустрии, четвертое измерение давно перестало быть абстракцией из. . .
SSE (Server-Sent Events) в ASP.NET Core и .NET 10
UnmanagedCoder 13.06.2025
Кажется, Microsoft снова подкинула нам интересную фичу в новой версии фреймворка. Работая с превью . NET 10, я наткнулся на нативную поддержку Server-Sent Events (SSE) в ASP. NET Core Minimal APIs. Эта. . .
С днём независимости России!
Hrethgir 13.06.2025
Решил побеседовать, с утра праздничного дня, с LM о завоеваниях. То что она написала о народе, представителем которого я являюсь сам сначала возмутило меня, но дальше только смешило. Это чисто. . .
Лето вокруг.
kumehtar 13.06.2025
Лето вокруг. Наполненное бурями и ураганами событий. На фоне магии Жизни, священной и вечной, неумелой рукой человека рисуется панорама душевного непокоя. Странные серые краски проникают и. . .
Популярные LM модели ориентированы на увеличение затрат ресурсов пользователями сгенерированного кода (грязь -заслуги чистоплюев).
Hrethgir 12.06.2025
Вообще обратил внимание, что они генерируют код (впрочем так-же ориентированы разработчики чипов даже), чтобы пользователь их использующий уходил в тот или иной убыток. Это достаточно опытные модели,. . .
Топ10 библиотек C для квантовых вычислений
bytestream 12.06.2025
Квантовые вычисления - это та область, где теория встречается с практикой на границе наших знаний о физике. Пока большая часть шума вокруг квантовых компьютеров крутится вокруг языков высокого уровня. . .
Dispose и Finalize в C#
stackOverflow 12.06.2025
Работая с C# больше десяти лет, я снова и снова наблюдаю одну и ту же историю: разработчики наивно полагаются на сборщик мусора, как на волшебную палочку, которая решит все проблемы с памятью. Да,. . .
Повышаем производительность игры на Unity 6 с GPU Resident Drawer
GameUnited 11.06.2025
Недавно копался в новых фичах Unity 6 и наткнулся на GPU Resident Drawer - штуку, которая заставила меня присвистнуть от удивления. По сути, это внутренний механизм рендеринга, который автоматически. . .
Множества в Python
py-thonny 11.06.2025
В Python существует множество структур данных, но иногда я сталкиваюсь с задачами, где ни списки, ни словари не дают оптимального решения. Часто это происходит, когда мне нужно быстро проверять. . .
Работа с ccache/sccache в рамках C++
Loafer 11.06.2025
Утилиты ccache и sccache занимаются тем, что кешируют промежуточные результаты компиляции, таким образом ускоряя последующие компиляции проекта. Это означает, что если проект будет компилироваться. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru