Вирус. Вполне возможно, что ваш компьютер заражен вирусом, ведь это одно из частых объяснений почти всех проблем. Но как он мог оказаться на моем компьютере, если есть антивирус? А давно ли вы обновляли его базы? Может быть, они уже потеряли актуальность.
Программы, пожирающие трафик. Компьютер после подключения к интернету может начать тормозить потому, что множество программ начинают качать обновления. Происходит это довольно часто, а одновременная нагрузка сказывается на производительности.
Обновление драйверов. Бывали и такие случаи, когда «тормоза» после подключения появлялись из-за автоматического обновления драйверов, которые были несовместимы и конфликтовали друг с другом.
Проблемы с ОС. После заражения системы, внесения различных изменений и прочих действий, вполне возможно, что у вас появились проблемы с операционной системой. Даже ошибки в одном системном файле могут стать причиной медленной работы.
Если у вас тормозит компьютер после подключения к интернету, попробуйте отключить планировщик пакетов QoS, в некоторых случаях это полностью решить проблему.
function nmbdec(var n,osn: integer): integer;
var nmb,l,s,k: integer;
begin
nmb:=0; s:=0;
k:=n; l:=1;
while k>0 do
begin
s:=k mod 10;
k:=k div 10;
nmb:=nmb+l*s;
l:=l*osn;
end;
Result:=nmb;
end;
{ конец функции}
begin
write('число: ');
readln(n);
write('квадрат какого числа: ');
readln(m);
osn:=10;
while osn>=2 do
begin
osn:=osn-1;
if nmbdec(n,osn)=sqr(nmbdec(m,osn)) then
begin
writeln('основание системы = ',osn);
break;
end;
end;
end.