Question

помогите написать программу на PascalABCNET

ВХОДНЫЕ ДАННЫЕ

Дано целое число A и целое неотрицательное число i.
ВЫХОДНЫЕ ДАННЫЕ

Выведите значение i-ого бита числа A (0 или 1).

Answer 1

function Dec2Bin(n:longint): string;
{ Перевод натурального десятичного n в систему счисления по основанию 2 }
var
  s: string;
begin
  s := '';
  while n > 0 do
  begin
    if Odd(n) then s:='1'+s else s:='0'+s;
    n := n div 2
  end;
  Dec2Bin := s;
end;

var
  A:longint;
  i,k:integer;
  s:string;
begin
  Write('Введите натуральное число А: '); Read(A);
  Write('Введите номер бита i (счет с 1 справа налево): '); Read(i);
  s:=Dec2Bin(A);
  k:=Length(s);
  if (i>0) and (i<=k) then Writeln('Значение бита: ',s[k+1-i])
  else Writeln('Неверный номер бита')
end.

Тестовое решение:
Введите натуральное число А: 37
Введите номер бита i (счет с 1 справа налево): 5
Значение бита: 0