Они распространяются скрытыми путями, и устанавливаются незаметно для пользователя. И делают действия, вредные для системы
Так как используется 256-символьный алфавит, значит 256=2^8=8 бит = 1 байт занимает 1 символ. Всего текст занимает 20*64*1 = 1280 байт.
Var
M,i,N:integer;
Begin
M:=0;
Write('N = ');ReadLn(N);
i:=1;
While i*i*(1+i) <= N do
Begin
M:=M+1;
i:=i+1;
End;
Write('M = ',M);
End.