1 - в
2 - в
3 - б (если только текстовый редактор - не стандартный блокнот)
4 - б
5 - а
6 - в
7 - а
8 - б*
Var n,k,m: integer;
begin
write('число: '); readln(n);
m:=1;
k:=trunc(log2(n));
if (k mod 2)=1 then m:=m shl (k-1)
else m:=m shl k;
repeat
write(m,' ');
m:=m shr 2;
until m<2;
<span>end.
</span>
<span>На сравнении программных кодов с известными вирусами</span>