Переведите число 143 из десятичной системы счисления в двоичную систему счисления. *​

Відповідь:

143 = 10001111

Пояснення:

143 : 2 = 71    =1

71 : 2 = 35     =1

35 : 2 = 17     =1

17 : 2 = 8   =1

8 :2 = 4   =0

4 : 2 = 2   =0

2 : 2 = 1   =0

1 : 2 = 0    =1

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var a:=ArrRandom(ReadInteger('n='),-20,20); a.Println;
  var k:=0;
  for var i:=0 to a.Length-1 do
    if a[i]>7 then begin a[i]:=7; Inc(k) end;
  a.Println;
  Writeln('Количество замен равно ',k);
  // если нужно общее количество семерок, замените
  // предыдущую строку следующей:
  // Writeln('Количество семерок равно ',a.Where(x->x=7).Count);
end.

Тестовое решение
n= 15
10 -11 14 12 -9 17 -4 11 -20 14 5 5 -3 -1 -2
7 -11 7 7 -9 7 -4 7 -20 7 5 5 -3 -1 -2
Количество замен равно 6

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var a:=ArrRandom(20,-5,8); a.Println;
  var b:=a.Where(x->x<>0).ToArray; b.Println;
  Writeln('Количество нулей равно ',20-b.Count);
end.

Тестовое решение
-4 0 -5 -1 7 3 6 7 7 0 5 -2 -5 -2 7 0 3 1 7 3
-4 -5 -1 7 3 6 7 7 5 -2 -5 -2 7 3 1 7 3
Количество нулей равно 3

//Pascal ABC.NET v3.1 сборка 1219

Const
 n=15;

 Var
 ar:array[1..n] of integer;
 pro,i,k:uint64;
begin
 randomize;
 pro:=1;
 writeln('First array:');
 for i:=1 to n do
  begin
   ar[i]:=random(22,23); //Серьёно?
   write(ar[i]:4); 
  pro:=pro*ar[i];
  end;
 writeln;
 writeln('Pro=',pro);
 write('Enter value:');
 readln(k);
 writeln('Final array:');
 for i:=1 to n do
  begin
   ar[i]:=ar[i]+k;
   write(ar[i]:6);
  end;
end.

Пример работы программы:
First array:
  23  23  22  22  22  22  23  23  23  22  23  22  22  23  23
Pro=10868183115618730368
Enter value:3
Final array:
    26    26    25    25    25    25    26    26    26    25    26    25    25    26    26