1) 10012 переведите в восьмеричную и шестнадцатеричную системы счисления. 2) 10110102 переведите в восьмеричную и шестнадцатеричную системы счисления. 3) 110112 переведите в восьмеричную и шестнадцатеричную системы счисления. 4) 1001102 переведите в восьмеричную и шестнадцатеричную системы счисления. 5) 108 переведите в двоичную и шестнадцатеричную системы счисления. 6) 1448 переведите в двоичную и шестнадцатеричную системы счисления. 7) 48 переведите в двоичную и шестнадцатеричную системы счисления. 8) 1048 переведите в двоичную и шестнадцатеричную системы счисления. 9) 2A16 переведите в двоичную и восьмеричную системы счисления. 10) 3B16 переведите в двоичную и восьмеричную системы счисления. 11) 1С16 переведите в двоичную и восьмеричную системы счисления. 12) 2E16 переведите в двоичную и восьмеричную системы счисления.

Площадь параллелограмма:

program chet;

var

sq, a , b : integer;

begin

writeln('Введите стороны параллелограмма ');

readln(a,b);

sq := a * b;

writeln('Площадь параллелограмма равна ', sq);

end.

Площадь трапеции:

program chet;

var

sq,h, a , b : real;

begin

writeln('Введите длину оснований ');

readln(a,b);

writeln('Введите высоту трапеции');

read(h);

sq := (a+b)/2 * h;

writeln('Площадь трапеции равна ', sq);

end.

Площадь круга:

program chet;

const

PI = 3.14;

var

sq,r : real;

begin

writeln('Введите радиус круга');

readln(r);

sq := PI * sqr(r);

writeln('Площадь круга равна ', sq);

end.

И площадь ромба:

program chetdsa;

var  

sq,d,g : real;

begin

writeln('Введите чему равны диагонали ромба');

readln(d,g);

sq := (d*g)/ 2;

writeln('Площадь ромба равна ', sq);

end.

Procedure TForm1.Button1Click(Sender: TObject);
var
  i1,i2,i3 : Integer;
  m : array [1..10] of Integer;
  kk : Integer;
begin
  Memo1.Clear;
  for i1 := 1 to 10 do
  begin
    m[i1]:= Random(10)-5;
    Memo1.Lines.Append('m['+inttostr(i1)+'] = '+inttostr(m[i1]));
  end;
  Memo1.Lines.Append('');
  kk := 0;
  for i1 := 1 to 10-2 do
  begin
    for i2 := i1+1 to 10-1 do
    begin
      for i3 := i2+1 to 10 do
      begin
        if ( (m[i1]+m[i2]+m[i3])=0) then
        begin
          inc(kk);
          Memo1.Lines.Append('Индекс = '+inttostr(i1)+'  '+inttostr(i2)+'  '+inttostr(i3)+'      Значение = '+inttostr(m[i1])+'  '+inttostr(m[i2])+'  '+inttostr(m[i3]));
        end;
      end;
    end;
  end;
  Memo1.Lines.Append('');
  if kk>0 then
    Memo1.Lines.Append('Да в этом массиве есть три числа сумма которых равна нулю')
  else
    Memo1.Lines.Append('Нет в этом массиве три числа сумма которых равна нулю');
  Memo1.Lines.Append('Количество комбинаций = '+inttostr(kk));
end;