1. перед вами 16-ричная последовательность: a0fff08000.закодируйте её при алгоритма rle, для этого выполните следующие шаги: а) переведите последовательность в 2сс: б) сколько бит занимает эта последовательность в 2сс? в) закодируйте в rle: г) сколько бит занимает эта последовательность в rle? д) эффективно ли использование алгоритма rle (стала ли после последовательность короче после кодирования)? данет2. закодируйте последовательность из предыдущего номера при кода хаффмана, для этого выполните следующие шаги: а) какие символы (16-ричные) используются в последовательности? расположите символы по возрастанию количества этих символов в последовательности.символa количество этих символов в последовательностиб) постройте дерево хаффмана и вычислите двоичные коды символов.8 = а = f = 0 = в) выпишите код хаффмана для исходной 16-ричной последовательности: г) сколько бит занимает эта последовательность, закодированная по хаффману? д) эффективно ли использование алгоритма хаффмана (стала ли после последовательность короче после кодирования)? данет3. по результатам предыдущих двух пунктов, какой кодирования (сжатия) эффективнее сжимает информацию? rle код хаффмана

Яэтого не понимаю , это для каких классов?

Program fury; // название программы
const  // объявление константы
n=10; // сама константа n
var //объявление переменных
a:array[1..n]of integer;  // (сами переменные) объявлен массив а от 1 до n // типа integer ( целые числа  от −2 147 483 648  до 2 147 483 647 )
min,max,i,s:integer; // объявлены переменные min , max,a,s - названия ,
// типа integer
begin // начало
for i:=1 to n do // цикл который выполняет  повторно действие до тех пор, // пока условное значение не станет false (т.е число не превысит n);
read(a[i]); //cчитывет значение массива а . [i] в квадратных скобках // означает индекс числа . т.е a[1] - первое число массива
min:=1;max:=1; // присваивает переменным min и max значение 1
for i:=2 to n do  // уже описывал
begin 
if a[i] min:=i; // оператор сравнения ,  если условие подходит входит
// в цикл
if a[i]>a[max]then // оператор сравнения , если условие подходит входит
// в цикл
max:=i; // присваивает max значение i
end; // конец
if max>min then  / оператор сравнения , если условие подходит входит
// в цикл
for i:=min to max do  // описывал
s:=s+a[i] // к переменной s добавляет элемент a[i] 
else //  если условие if не выполнилось
for i:=max to min do // 
s:=s+a[i]; //
writeln(' S= ',s); // напечатать на новой строке то чему равно s
end.

Странно, вроде уже отвечал...
// Задание №1
var a,b,c:real;
begin
  writeln('Введите длины сторон треугольника');
  readln(a, b, c);
  if (a=b) and (b=c) and(a>0) then
     writeln('Равносторонний')
  else
     writeln('Не равносторонний');
end.
//Задание №2
var
  a, b, i, s: integer;

begin
  writeln('Введите левую границу диапазона');
  readln(a);
  writeln('Введите правую границу диапазона');
  readln(b);
  s := 0;
  for i := a to b do
    if i mod 2 <> 0 then s := s + i;
  writeln('Сумма Нечетных:', s);
end.