Переведите числа из десятичной системы счисления в двоичную, восьмеричную и шестнадцатеричную системы счисления.

а) 563;
б) 264;
в) 234,25;
г) 53,125;
д) 286,16.

2. Переведите числа в десятичную систему счисления.

а) 11000100102;
б) 100110112;
в) 1111000001,012;
г) 10110111,012;
д) 416,18;
е) 215,716.

3. Выполните сложение чисел.

а) 101111112+1100100002;
б) 1100101002+10111000012;
в) 1000000101,01012+1010000110,012;
г) 1512,48+1015,28;
д) 274,516+DD,416.

4. Выполните вычитание чисел.

а) 10000010012-1111101002;
б) 11110001012-11001101012;
в) 1100110101,12-1011100011,012;
г) 1501,348-1374,58;
д) 12D,316-39,616.

5. Выполните умножение чисел.

а) 1111012*10101112;
б) 1252,148*76,048;
в) 66,6816*1E,316.

Uses graphabc;
var
  i, j: integer;
  ar: array[1..10]of integer;
  b: boolean;

 label l1;
 begin
  b := false;
  for i := 1 to 10 do ar[i] := random(10, 300);
  l1:
  b := false;
  for i := 1 to 10 do
     for j := 1 to 10 do if((ar[i] = ar[j]) or (abs(ar[i] - ar[j]) < 10)) and (i <> j)
      then
      begin
      b := true;
      ar[i] := random(30, 300);
      end;
  if b = true then goto l1;
  window.Init(0, 0, 800, 600, clwhite);
  window.IsFixedSize := true;
  randomize;
  lockdrawing;
  pen.Width := 5;
  for i := 1 to 10 do
  begin
    pen.Color := rgb(random(0, 255), random(0, 255), random(0, 255));              drawcircle(400, 300, ar[i]);
    redraw;
end; 
end.

Uses graphabc; 
var 
  i, j: integer; 
  ar: array[1..10]of integer; 
  b: boolean; 

 label l1; 
 begin 
  b := false; 
  for i := 1 to 10 do ar[i] := random(10, 300); 
  l1: 
  b := false; 
  for i := 1 to 10 do 
     for j := 1 to 10 do if((ar[i] = ar[j]) or (abs(ar[i] - ar[j]) < 10)) and (i <> j) 
      then 
      begin 
      b := true;
      ar[i] := random(30, 300); 
      end; 
  if b = true then goto l1; 
  window.Init(0, 0, 800, 600, clwhite); 
  window.IsFixedSize := true; 
  randomize; 
  lockdrawing; 
  pen.Width := 5; 
  for i := 1 to 10 do 
  begin 
    pen.Color := rgb(random(0, 255), random(0, 255), random(0, 255));              drawcircle(400, 300, ar[i]); 
    redraw;
end; 
end.