Информатика..нужно поделить первое.ничего не понимаю

В ДВОИЧНОЙ

875/2 = 437, остаток: 1

437/2 = 218, остаток: 1

218/2 = 109, остаток: 0

109/2 = 54, остаток: 1

54/2 = 27, остаток: 0

27/2 = 13, остаток: 1

13/2 = 6, остаток: 1

6/2 = 3, остаток: 0

3/2 = 1, остаток: 1

1/2 = 0, остаток: 1

875(10) = 1101101011(2)

В ВОСЬМЕРИЧНОЙ

875/8 = 109, остаток: 3

109/8 = 13, остаток: 5

13/8 = 1, остаток: 5

1/8 = 0, остаток: 1

875(10) = 1553(8)

В ШЕСТНАДЦАТЕРИЧНОЙ

875/16 = 54, остаток: 11, 11 = B

54/16 = 3, остаток: 6

3/16 = 0, остаток: 3

875(10) = 36B(16)

В ДВОИЧНОЙ

Переводим целую часть 535.2510 в 2-ую систему последовательным делением на 2:

535/2 = 267, остаток: 1

267/2 = 133, остаток: 1

133/2 = 66, остаток: 1

66/2 = 33, остаток: 0

33/2 = 16, остаток: 1

16/2 = 8, остаток: 0

8/2 = 4, остаток: 0

4/2 = 2, остаток: 0

2/2 = 1, остаток: 0

1/2 = 0, остаток: 1

535(10) = 1000010111(2)

Переводим дробную часть 535.2510 в 2-ую систему:

0.25·2 = 0.5

0.5·2 = 1.0

0.25(10) = 0.01(2)

В ВОСЬМЕРИЧНОЙ

Переводим целую часть 535.2510 в 8-ую систему последовательным делением на 8:

535/8 = 66, остаток: 7

66/8 = 8, остаток: 2

8/8 = 1, остаток: 0

1/8 = 0, остаток: 1

535(10) = 1027(8)

Переводим дробную часть 535.2510 в 8-ую систему:

0.25·8 = 2.0

0.25(10) = 0.2(8)

В ШЕСТНАДЦАТЕРИЧНОЙ

Переводим целую часть 535.2510 в 16-ую систему последовательным делением на 16:

535/16 = 33, остаток: 7

33/16 = 2, остаток: 1

2/16 = 0, остаток: 2

535(10) = 217(16 )

Переводим дробную часть 535.2510 в 16-ую систему:

0.25·16 = 4.0

0.25(10) = 0.4(16)

1. Программа для создания файла

// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
type
  tBook=record
    author:string[30];
    naim:string[50];
    pages:integer;
    godizd:integer
    end;
begin
  var f:file of tBook;
  Rewrite(f,'books.dat');
  Writeln('Ввод данных по книгам');
  var s1,s2:string;
  var i1,i2:integer;
  var book:tBook;
  repeat
    s1:=ReadlnString('Автор или * для окончания ввода:');
    if s1<>'*' then begin
      s2:=ReadlnString('Название книги:');
      i1:=ReadlnInteger('Количество страниц:');
      i2:=ReadlnInteger('Год издания:');
      (book.author,book.naim,book.pages,book.godizd):=(s1,s2,i1,i2);
      Write(f,book)
      end
  until s1='*';
  Writeln('*** Ввод завершен ***');
  f.Close
end.

Тестовое решение
Ввод данных по книгам
Автор или * для окончания ввода: Жюль Верн
Название книги: 80 тысяч километров под водой
Количество страниц: 573
Год издания: 1951
Автор или * для окончания ввода: Сергей Лукьяненко
Название книги: Дозор
Количество страниц: 934
Год издания: 2004
Автор или * для окончания ввода: Жюль Верн
Название книги: Властелин мира
Количество страниц: 104
Год издания: 2011
Автор или * для окончания ввода: *
*** Ввод завершен ***

2. Программа для выборки

// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
type
  tBook=record
    author:string[30];
    naim:string[50];
    pages:integer;
    godizd:integer
    end;
begin
  var f:file of tBook;
  Reset(f,'books.dat');
  var s:=ReadlnString('Автор книги:');
  var y:=Readinteger('Год издания, не ранее:');
  var k:=0;
  var book:tBook;
  while not f.Eof do begin
    Read(f,book);
    if (book.author=s) and (book.godizd>=y) then begin
      Writeln(book);
      Inc(k)
      end;
  end;
  if k=0 then Writeln('Таких книг не найдено');
  f.Close
end.

Тестовое решение
Автор книги: Жюль Верн
Год издания, не ранее: 2005
(Жюль Верн,Властелин мира,104,2011)