Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Помогите написать программу на PascalABCNET
ВХОДНЫЕ ДАННЫЕ
Дано целое число A и целое неотрицательное число i.
ВЫХОДНЫЕ ДАННЫЕ
Выведите значение i-ого бита числа A (0 или 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