1. Что такое компьютерный вирус? 1) Прикладная программа. 2) Системная программа. 3) Программа, выполняющая на компьютере несанкционированные действия. 4) База данных. 2. Основные типы компьютерных вирусов: 1) Аппаратные, программные, загрузочные. 2) Программные, загрузочные, макровирусы. 3) Файловые, программные, макровирусы. 3. Этапы действия программного вируса: 1) Размножение, вирусная атака. 2) Запись в файл, размножение. 3) Запись в файл, размножение, уничтожение программы. 4. В чем заключается размножение программного вируса? 1) Программа-вирус один раз копируется в теле другой программы. 2) Вирусный код неоднократно копируется в теле другой программы. 5. Что называется вирусной атакой? 1) Неоднократное копирование кода вируса в код программы. 2) Отключение компьютера в результате попадания вируса. 3) Нарушение работы программы, уничтожение данных, форматирование жесткого диска. 6. Какие существуют методы реализации антивирусной защиты? 1) Аппаратные и программные. 2) Программные и административные. 3) Только программные. 7. Какие существуют основные средства защиты данных? 1) Резервное копирование наиболее ценных данных. 2) Аппаратные средства. 3) Программные средства. 8. Какие существуют вс средства защиты? 1) Аппаратные средства. 2) Программные средства. 3) Административные методы и антивирусные программы.

1) 4

2) 1

3) 3

4) 2

5) 3

6) 1

7) 1

8) 2

Получилась очень громоздкая конструкция из логический условий, но по-другому никак не придумалось

var t: string; n: integer; i,x,y: byte;
begin
  writeln ('Введите строку');
  readln (t);
  n:=length(t);
  t:=t+'.'; //пририсовываем к строке лишний символ "не буква", иначе программа может не посчитать последнее слово в случае, если строка кончается буквой.
  x:=0;   // переменная для обозначения конца каждой группы из букв, идущих подряд 
  y:=0;   // переменная для подсчета количества групп из букв, идущих подряд  
  for i:=1 to n do 
    begin
      // определяем, является ли текущий символ буквой:
      if ((ord(t[i])>64) and (ord(t[i])<91)) or ((ord(t[i])>96) and (ord(t[i])<123)) or ((ord(t[i])>191) and (ord(t[i])<256))
        then x:=1    //если да, то х=1
        else 
          begin
            if x=1 then begin y:=y+1; x:=0 end;  // если текущий символ не буква, то проверяем "х" - если х=1, значит слово кончилось и "у" увеличиваем на 1, а "х" соответственно снова обнуляем. теперь при следующем символе "небуква" наш "у" не увеличится
                 //В следующем длинном условии проверяем исключение - является ли текущий символ тире или дефисом. если дефис, то количество уже посчитанных слов уменьшим на 1, т.к. дефис стоит в середине слова и значит предыдущее прибавление 1 было неправильным.
            if (t[i]='-') and (((ord(t[i-1])>64) and (ord(t[i-1])<91)) or ((ord(t[i-1])>96) and (ord(t[i-1])<123)) or ((ord(t[i-1])>191) and (ord(t[i-1])<256))) and (((ord(t[i+1])>64) and (ord(t[i+1])<91)) or ((ord(t[i+1])>96) and (ord(t[i+1])<123)) or ((ord(t[i+1])>191) and (ord(t[i+1])<256)))
              then y:=y-1
          end
    end;
  
  writeln('В данной строке ',y,' слов')
end.

Результат работы программы:

Введите строку
Ali-Baba,- это не имя атамана разбойников, это китайский магазин.
В данной строке 9 слов

Скорее всего в условии задачи описка - не 250, а 25

тогда решаем:
(в скобках указано основание системы счисления
^ - знак степени)

100(х)=25(10)
100(х)= 1*(х^2) + 0*(x^1) + 0*(x^0) = 25(10)
                 x^2    +      0     +     0      = 25
                                   x^2 = 25
                                     x=5
100(5) = 25(10)
ответ: СС с основанием 5 

Если же условие задачи записано верно, то "х" получается равным корню из 250, а это дробное число 15,8113883008, что невозможно, т.к. основанием системы счисления может быть только целое порядковое числительное