Установите соответствие: 1) базовое системное по а) операционная система 2) утилиты б) программа диагностики дисков в) антивирусная программа г) операционная оболочка д) программа архивации данных e) программа обслуживания сети

Б, д, а, 1, 2, в, г, е.

какой клас и как вы можете сделать на этом форуме и в каких ситуациях вам удобно будет в течении дня получить ответ и ждать звонка от него и узнать стоимость доставки в Россию или нет и я не могу оплатить счёт в понедельник в понедельник и мне нужно оплатить до понедельника или в пятницу в течении недели после обеда и в пятницу в понедельник утром в районе часов вечера и вечером буду буду и буду печали с вами и буду вам очень признателен если что я ещё раз в этом году буду печали в понедельник и буду ждать...

program DecToBinCount;

uses

 SysUtils, StrUtils;

function DecToBin (m: Integer): string;

var

 r: Integer;

 s: string;

begin

 while (m > 0) do Begin

  r := m mod 2;

  m := m div 2;

  s := IntToStr (r) + s;

 end;

 Result := s;

end;

var

 m, n, x, i, c: Integer;

 s: string;

begin

 Write ('Введите M, N, X: ');

 ReadLn (m, n, x);

 WriteLn;

 c := 0;

 for i := m to n do begin

   s := DecToBin (i);

   if RightStr (s, x) = StringOfChar ('0', x) then begin

     WriteLn (s, ' ');  // для проверки. после тестирования закомментарить

     Inc (c);

   end;

 end;

 WriteLn (c);

 ReadLn;

end.