Вывод бита числа по его порядковому номеру

@Лекси · Регистрация: 14.04.2011

нужна вот такая программка!(((
вводится число и номер бита, вывести какой это бит (0 или1)

@iama · 16.06.2011, 23:04

Pascal

var a, n: byte;
begin
readln(a, n);
if (a and (1 shl (n - 1))) <> 0 then writeln(1) 
else writeln(0);
readln
end.

Восьмибитные числа

@Daemon025 · 16.06.2011, 23:06

какой регистр учитывать?

@Лекси · 16.06.2011, 23:21 **[ТС]**

благодарю

32 битные((

@iama · 16.06.2011, 23:26

Pascal

var a: longint; n: byte;
begin
readln(a, n);
if (a and (1 shl (n - 1))) <> 0 then writeln(1) 
else writeln(0);
readln
end.

32

@lamed · 16.06.2011, 23:38

Сообщение от iama

if (a and (1 shl (n - 1))) <> 0 then writeln(1)
else writeln(0);

Pascal

1	writeln ((a shr (n-1)) and 1);

Так тоже можно.

@Лекси 0 / 0 / 1 Регистрация: 14.04.2011 Сообщений: 27
		1
	Вывод бита числа по его порядковому номеру 16.06.2011, 23:00. Показов 2220. Ответов 5 Метки нет (Все метки) нужна вот такая программка!((( вводится число и номер бита, вывести какой это бит (0 или1) 0

@Daemon025 382 / 330 / 159 Регистрация: 06.12.2010 Сообщений: 894
	16.06.2011, 23:06	3
	какой регистр учитывать? 0

@Лекси 0 / 0 / 1 Регистрация: 14.04.2011 Сообщений: 27
	16.06.2011, 23:21 [ТС]	4
	благодарю 32 битные(( 0

	16.06.2011, 23:38