Створити програму табулювання функції для x на проміжку від -2 до 4 з кроком 0,5. (Протабулювати функцію –означає створити таблицю значень функції у вигляді:
при х=-2 значення функції у=7
при х=-1,5 значення функції у=…
при х=-1 значення функції у=…..

при х=4 значення функції у=…) З пояснювальним текстом

Дано a=82_{16}, b=701_8. Выберите число с, записанное в двоичной системе, которое отвечает условию a<c<b.
Число в 16-ой и 8-ой системе очень легко записать в двоичное системе расписав каждую цифру числа на черыре цифры у 16-го числа и на три цифры у 8-го числа
Первое число 82(в 16)
8 =1000(в двоичной системе)
2= 0010
82 =10000010
Второе число 701(в 8 системе)
7=111( в двоичной системе)
0=000
1=001
701=111000001
Данные системы счисления относятся к позиционным поэтому вес каждой цифры зависит от ее положения
Число с удолетворяющее условию a<c<b равняется 11010111
11010111(2) =327(8)=D7(16)

var

  a,b,c:array [1..20] of integer;

  i,k,l:integer;

begin

  randomize;

  k:=1;

  l:=1; 

  writeln ('Исходный массив: '); 

  for i:=1 to 20 do

   begin

    a[i]:=random(9)+1;

    if a[i] mod 2 = 0 then

     begin

      b[k]:=a[i];

      inc(k);

     end else

      begin

       c[l]:=a[i];

       inc(l);

      end; 

    write (a[i],' ');

  end;

  k:=k-1;

  l:=l-1; 

  writeln;

  writeln ('Массив четных чисел');

  for i:=1 to k do write (b[i],' ');

  writeln;

  writeln ('Массив нечетных чисел');

  for i:=1 to l do write (c[i],' ');

  writeln;

  readln;

end.