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

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

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

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

    question img

Ответы 3

  • Partial Solution. Your score is = 22, 22/50 tests passed
  • Меня меньше всего волнует чья-то там автоматическая оценка. Задача решена и протестирована на нескольких вариантах исходных данных. Если есть конкретная ошибка - укажите её
    • Автор:

      chocolate
    • 6 лет назад
    • 0
  • 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
    • Автор:

      logangill
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years