Вариант 14.1. переведите числа из десятичной системы счисления в двоичную, восьмеричную и шестнадцатеричную системы счисления.а) 500; б) 222; в) 480; г) 357.2. сравните числаа) 10910 и 111012; б) 9aa16 и 1028; в) 012 и 6078.​

// PascalABC.NET 3.3, сборка 1561 от 02.11.2017
// Внимание! Если программа не работает, обновите версию!

1)

begin
  var (a,b):=ReadInteger2('Введите границы диапазона:');
  var Всего:=b-a+1; // количество целых чисел в диапазоне
  var Четных,Нечетных:integer;
  if a.IsOdd then begin Четных:=Всего div 2; Нечетных:=Всего-Четных end
  else begin Нечетных:=Всего div 2; Четных:=Всего-Нечетных end; // четное a
  Writeln('Нечетных- ',Нечетных,', четных- ',Четных)
end.

Пример
Введите границы диапазона: -4 4
Нечетных- 4, четных- 5

2)

begin
  var (n,a,b):=ReadInteger3('Введите n,a,b:');
  SeqRandom(n,a,b).Println
end.

Пример
Введите n,a,b: 15 -10 35
19 33 -10 4 5 -10 10 21 17 21 14 21 24 23 18

ответ: да можно ,
Для каждого груза можешь привести 
Данный груз +   некая гиря     =  противовес 
1                     +     0                   = 1
2                     +     1                   = 3
3                     +     0                   = 3
4                     +     0                   = 3+1
5                     +     3+1               = 9
6                     +     3                   = 9
7                     +     3                   = 9+1
8                     +     1                   = 9 
9                     +     0                   = 9
10                   +     0                   = 9+1
11                   +     1                   = 9+3
12                   +     0                   = 9+3
13                   +     0                   = 9+3+1