Пусть с это 5, А это 1, а B это 2, тогда в сумме будет 8.
2-ое не помню(
63 -> 2в5+2в4+2в3+2в2+2в1+2в0=63
Var
A:byte;
Begin
A:=random(151)+5;
if (25 < A)and(A < 100) then WriteLn('Число ',A,' содержится в интервале (25,100)')
else WriteLn('Число ',A,' не содержится в интервале (25,100)')
End.
Если шаг не задан явно, значит он равен 1.
3
X v Y v -Z
1)0 v 0 v 1=1
2)1 v 1 v 1=1
3)1 v 0 v 1=1