Сообщений, информационный объем которого равен 5 кбайт занимает 6 страниц по 32 строки, в каждой из которых записано по 40 символов. сколько символов в алфавите языка, на котором записано это сообщение?

Всё очень просто:

1) мощность языка (сколько символов используется) N =2^i (i - "вес" 1 символа языка в битах), то есть надо найти i,

2) подсчитаем количество символов в сообщении: 6*32*40 (штук, то есть символов),

3) переведем информационный объем сообщения в биты (так как формула  из п.1 работает в битах, нам надо свести всё в одни единицы измерения), V=5Кб = 5*2^13 бит,

4) Найдем "вес" 1 символа, разделив количество бит в сообщении на количество символов: 1 символ = ((5*2^13)/(6*32*40))=(2^13)/(6*32*8)=(2^13)/(6*2^8)= (упс! 32/6) =5, 33 (3) => округляем до 6

5) В языке N=2^i = 2^6= 64 символа

1. провести скан компьютера антивирусом

2. если нашёл антивирус то очистить

3. если не нашёл ищем вирус вручную

4. если реклама в браузере то ищем через код элемента

5. если нашли то следуем к корневой папке и удаляем

6. если рекламка на самом пк, то стоит нажать, и скачав утилиту просмотреть последние действия и с каким файлом они совершались, в последствии удалить

7. если же вирус типа троян, то так же с какой-либо утилиты просмотреть какие файлы недавно появились на пк и удалить

8. если же они не удаляются, являясь задействованными где либо, с диспетчера задач завершаем задачу и удаляем

9. в случае если файл скрыт, через проводник включаем видимость скрытых файлов и папок и удаляем

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

11. ещё раз на всякий случай включить полную проверку антивирусом

/// PascalABC.Net 3.4.2, 2053(11.05.19)

var

   a, n: longint;

   text: textfile;

function myMod(num, power, divider: longint): longint;

var

   rest, i: longint;

begin

   rest:=1;

   divider := abs(divider);

   for i := 1 to power do

   begin

       rest := rest * num;

       rest := rest mod divider;

   end;

   

   myMod := rest;

end;

begin

   assign(text, 'input.txt');

   

   {rewrite(text);

   writeln(text, 109);

   close(text);}

   

   reset(text);

   read(text, a);

   writeln('a=', a);

   close(text);

   

   n := 1;

   repeat

       n := n + 1;

   until MyMod(n, n, a) = 0;

   

   assign(text, 'output.txt');

   rewrite(text);

   writeln(text, n);

   close(text);

   

   {reset(text);

   read(text, n);

   writeln('n=', n);

   close(text);}

end.