Var S,n,A:integer;
Begin
Write('n = ');ReadLn(n);
For n:= 10 to n+9 do
Begin
A:=n;
S:=0;
While A > 0 do
Begin
S:=S+A mod 10;
A:= A div 10
End;
WriteLn('Сумма цифр ',n,' равна: ',S)
End;
End.
Запишем куски под номерами X Y Z N
1) взвешиваем X-N к примеру X тяжелее N
2) Взвешиваем Y-Z к примеру Y тяжелее Z
3) теперь взвешиваем два самых легких из предыдущих взвешиваний
N-Z к примеру Z тяж N
Видов может быть безграничное количество, у каждого свои названия и функции. Большое количество снифферов (которые крадут личную информацию). Троян (он может уменьшить работоспособность компьютера. Также BackDoor (он позволяет управлять компьютером, через сеть) Это наиболее популярные вирусы.