16 / 16 / 10
Регистрация: 25.05.2012
Сообщений: 24
1

Определите, содержит ли последовательность числа, являющиеся степенями 2

25.05.2012, 00:21. Показов 1731. Ответов 2
Метки нет (Все метки)

Задача:
Дана последовательность целых чисел, за которой следует ноль.
Определите, содержит ли последовательность числа, являющиеся
степенями 2.

Мой текст:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
program exapmle2;
 
var 
x,k: integer;
y:real;
 
begin 
write('Vvedite chislo: '); readln(x);
 
k:=0;
y:=0;
while x<>0 do
 
  begin
  while (y<>1) or (y>1) do 
 
    begin
    y:=x/2; 
    if y=1 then k:=k+1;
    end;
  
  readln(x);
  end;
    
writeln('Kol-vo stepenej 2 = ',k);
 
end.
Выдаёт всё время единицу, а если начинать вводить числа не с двойки, то вообще зависает(
Помогите, пожалуйста, исправить.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.05.2012, 00:21
Ответы с готовыми решениями:

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

Вводится последовательность целых чисел, 0-конец последовательности. Содержит ли последовательность хотя бы два числа, кратных 3,5,7?
Вводится последовательность целых чисел, 0-конец последовательности. Содержит ли последовательность...

Вводится последовательность целых чисел, 0-конец последовательности. Содержит ли последовательность хотя бы два числа, кратных 3,5,7?
Помогите пожалуйста решить задачу. Вводится последовательность целых чисел, 0-конец...

Вводится последовательность целых чисел,0 –конец последовательности. Определить, содержит ли последовательность хотя бы три отрицательных четных числа
Составить алгоритм решения задачи и написать программу на языке С++. В алгоритме и ...

Содержит ли последовательность 3 отрицательных числа
Введите последовательность целых чисел, 0-конец последовательности.

2
85 / 85 / 38
Регистрация: 09.12.2011
Сообщений: 174
25.05.2012, 12:55 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
x,k: integer;
begin
write('Vvedite chislo: '); readln(x);
while x<>0 do
begin
k:=0;
while (x mod 2) = 0 do
begin
x:=x div 2;
if x>=1 then k:=k+1;
if ((x mod 2) = 1) and (x<>1) then k:=0;
end;
if k>0 then
writeln('Kol-vo stepenej 2 = ',k)
else writeln('Ne stepen 2');
readln(x);
end;
end.
1
16 / 16 / 10
Регистрация: 25.05.2012
Сообщений: 24
25.05.2012, 18:34  [ТС] 3
Спасибо там только нужен всего один вывод сообщения о том, содержится или нет, но я разобралась.

Добавлено через 7 минут
в итоге
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
var
x,k:integer;
 
begin
write('Vvedite chislo:'); readln(x);
k:=0;
 
while x<>0 do
begin
   
   while (x mod 2) = 0 do
     begin
     x:=x div 2;
     if ((x mod 2) = 1) and (x<>1) then k:=0;
     if x>=1 then k:=k+1;
     end;
    
readln(x); 
end;
 
if k>0 then
writeln('Posledovatelnost sodergit stepeni 2')
else writeln('Posledovatelnost ne sodergit stepeni 2');
   
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.05.2012, 18:34
Помогаю со студенческими работами здесь

Содержит ли последовательность хотя бы 2 равных соседних числа
0 конец последовательности. определить содержит ли последовательность хотя бы 2 равных соседних...

Содержит ли последовательность хотя бы три отрицательных числа
6. Вводится последовательность целых чисел, 0 – конец последовательности. Содержит ли...

Содержит ли последовательность хотя бы два числа, кратных 3, 5 и 7?
Вводится последовательность целых чисел, 0 – конец последовательности. Содержит последовательность...

Содержит ли последовательность хотя бы три числа, кратных 3, 5 или 7
Вводится последовательность целых чисел, 0 – конец последовательности. Определить, содержит ли...

Определить, содержит ли последовательность хотя бы 2 равных соседних числа
Уважаемые, форумчаны) помогите пожалуйста бедной девушке решить задачку... Вводится...

Определить, содержит ли последовательность хотя бы два числа, кратных 3, 5 и 7
ЗАДАЧА 1.Вводится последовательность целых чисел, 0 – конец последователь- ности. Содержит...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru