Question

Дано натуральное число N. Выведите его представление в двоичном виде в обратном порядке. Например: Входные данные : 6 Выходные данные: 011 Программа на Паскале Помогите, пожалуйста, очень нужно!

Answer 1

var a:array[1..100] of integer;

n,i,p:integer;

begin

 readln(n);

 i:=1;

 while n>1 do

 begin

   p:=n mod 2;

   a[i]:=p;

   n:=n div 2;

   i:=i+1;

   end;

 a[i]:=n;

 for p:=i downto 1 do

   write(a[p]);

end.

Answer 2

Конечно, вот пример программы на языке Паскаль, которая преобразует натуральное число N в его двоичное представление в обратном порядке:

pascalCopy code
program ReverseBinary;
var
  N, remainder: Integer;
begin
  // Вводим натуральное число N
  Write('Введите натуральное число N: ');
  Readln(N);

  Write('Двоичное представление числа N в обратном порядке: ');

  // Преобразуем число в двоичное представление в обратном порядке
  while N > 0 do
  begin
    remainder := N mod 2;  // Вычисляем остаток при делении на 2
    Write(remainder);      // Выводим остаток
    N := N div 2;         // Делаем целочисленное деление на 2
  end;

  Writeln;  // Переходим на новую строку
end.

Эта программа запрашивает у пользователя натуральное число N, затем преобразует его в двоичное представление, выводя биты в обратном порядке. Например, если ввести число 6, программа выведет "011" в обратном порядке, как в вашем примере.