Задание 1 на тему "Единицы измерения информации": Определить объем текстового выражения в битах, байтах, килобайтах.
Определить время передачи информации по локальной и глобальной компьютерным сетям.

№ варианта
Текстовое выражение
Пропускная сети
локальная
бит/сек
глобальная
мбит/сек
0
Информационные технологии
20000
100
1
Информационная система
25000
60
2
Операционная система
28000
80
3
Текстовый редактор
26000
100
4
Табличный процессор
27000
90
5
Графический редактор
25000
80
6
Системы счисления
29000
100
7
Вычислительный процесс
27000
100
8
Автоматизированная система
22000
70
9
Компьютерные сети
30000
90
10
Глобальная сеть
31000
80
11
Циклический алгоритм
28000
100
12
Разветвляющийся алгоритм
25000
90
13
Периферийные устройства
20000
60
14
Центральный процессор
27000
70
15
Сервисные программы
30000
100
16
Мультимедийные устройства
25000
70
17
Антивирусные средства
32000
100
18
Системы программирования
31000
90

Задание 2 на тему "Системы счисления":

1) Оба числа перевести в двоичную систему счисления.
2) Двоичные числа перевести в восьмеричную и шестнадцатеричную системы (по таблице).
3) С двоичными числами выполнить сложение и вычитание.
4) Результаты сложения и вычитания перевести в десятичную систему счисления.
5) Сделать проверку (в десятичной системе), вывод.

№ варианта
1 число
2 число

179,45
17,651

314,26
46,285

37,382
134,75

93,148
218,27

456,13
75,481

45,282
324,97

823,27
49,813

74,361
196,12

435,75
63,127

45,932
248,57

374,12
82,431

31,564
148,13

381,28
24,389

70,415
358,47

621,14
39,723

42,184
249,23

354,15
19,316

58,614
115,45

539,42
35,841

Преобразуем условие в более понятное.
Обозначаем:
a=Пер­вая буква со­глас­ная;
b=Вто­рая буква со­глас­ная
c=Тре­тья буква глас­ная
Тогда условие можно записать следующим образом:

Перейдем к исходным обозначениям, учтя, что отрицание "гласная" есть "согласная", а отрицание "согласная" есть "гласная":
(Пер­вая буква глас­ная ИЛИ Вто­рая буква глас­ная) И Тре­тья буква согласная.
Можно сформулировать еще короче:
"Пер­вая ИЛИ вторая буква глас­ная, а третья обязательно согласная".
Этому условию удовлетворяет только имя 4) Лидия - в нем вторая буква гласная, а третья согласная.

Общее решение, позволяющее удалять из строк любой "мусор"

// PascalABC.Net 3.0, сборка 1066
procedure CheckString(var s:string; var n:integer);
var
  i:integer;
begin
  i:=Length(s);
  while i>0 do begin
    if not(s[i] in ['a'..'z']) then Delete(s,i,1);
    Dec(i)
  end;
  n:=Length(s)
end;

var
  s1,s2:string;
  i,p,n1,n2:integer;
begin
  Write('Введите первую строку: '); Readln(s1);
  CheckString(s1,n1);
  if n1=0 then Writeln('Введенная строка не содержит допустимых символов')
  else begin
    Write('Введите вторую строку: '); Readln(s2);
    CheckString(s2,n2);
    if n2=0 then Writeln('Введенная строка не содержит допустимых символов')
    else
      { теперь обе строки содержат только маленькие латинские буквы }
      if n1=n2 then begin
        for i:=1 to n1 do begin
          p:=Pos(s1[i],s2);
          if p=0 then Break
          else Delete(s2,p,1)
          end;
        if Length(s2)=0 then Writeln('Решение имеется')
        else Writeln('Решения нет')
        end
      else
        Writeln('Решения нет');
    end
end.

Тестовое решение:
Введите первую строку: this is my own deal!
Введите вторую строку: Тест: *is  now=l2ead  my   sthi?
Решение имеется

Также имеется современное решение, которому пока что в школах не учат:
// PascalABC.Net 3.0, сборка 1066
begin
  var s1:=ReadString('Введите первую строку: ').Where(x->x in ['a'..'z']);
  if s1.Count=0 then
    Writeln('Введенная строка не содержит допустимых символов')
  else begin
    var s2:=ReadString('Введите вторую строку: ').Where(x->x in ['a'..'z']);
    if s2.Count=0 then
      Writeln('Введенная строка не содержит допустимых символов')
    else
      if s1.Except(s2).Count>0 then Writeln('Решения нет')
      else Writeln('Решение имеется')
    end
end.