с контрольной по информатике 11 может кто нибудь знает скиньте?

4. Создать за на определение модели машины, обладающей наименьшей скоростью.

5.Создать за на определение модели машин у которых объем двигателя больше 1500 мл.

6. Создать форму и добавить в базу данных между 3 и 4-ой записью запись о машине Таврия.

7. Выдать отчет. Поля отчета:
• модель (в алфавитном порядке)
• скорость
• мощность

1) 56(10) ⇒ х(2)
Для перевода целого числа из десятичной системы в двоичную выполняем его целочисленное деление на два с сохранением остатка. Если частное больше единицы, делим его на два, снова сохраняем остаток и т.д. Как только частное станет равным 1 или 0, записываем его, а затем приписываем к нему слева остатки в порядке, обратном их получению.
56 / 2 = 28 (остаток 0)
28 / 2 - 14 (остаток 0)
14 / 2 = 7 (остаток 0)
7 / 2 = 3 (остаток 1)
3 / 2 = 1 (остаток 1)
Записываем результат. 56(10) = 111000(2)

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


Переводы чисел между системами счисления по основаниям, кратным степеням двойки (2,4,8,16) выполняется через двоичную систему счисления, как через промежуточную. Например, при переходе от восьмеричной системы к шестнадцатиричной, мы учитываем, что , каждую восьмеричную цифру заменяем тремя двоичными (триадой) и получаем двоичное число. А затем, зная что , мы группируем двоичные разряды справа налево по четыре, получая тетрады. И, наконец, каждую тетраду мы заменяем соответствующей шестнадцатиричной цифрой. Описывать этот процесс долго, а перевод делается быстро.
3) 77(8) = 111 111(2) = 11 1111(2) = 3F(16)
4) 57(8) = 101 111(2) = 101111(2)
5) 9A(16) = 1001 1010(2) = 10011010(2)
7) 10011(2) = 010 011(2) = 23(8)
8) 101011(2) = 0010 1011(2) = 2B(16)

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
const n = 10;
var a:array[1..n] of integer;
i,j:integer;
begin
// Заполним массив сл. числами
  for i:=1 to n do begin
    a[i]:=random(0,99); write(a[i]:4);
  end;
  writeln;
//сортировка массива по убыванию последней цифры.
  for i := 1 to n-1 do
    for j := 1 to n-i do
      if (a[j] mod 10) > (a[j+1]mod 10) then
      swap(a[j],a[j+1]);
  writeln('Отсортированный массив : ');
  for i:=1 to n do write(a[i]:4);   
end.

Тестовое решение:
  14  60  69   6  10  77  66  67  44  84
Отсортированный массив :
  60  10  14  44  84   6  66  77  67  69