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.
Налить в 5литровую банку воды, перелить из нее в 2литровую, отсанется 3 литра, и ещё раз перелить в 2литровую, останется 1 литр
В компьютерной системе есть возможность подключать новые устройства ввода,вывода,память компьютера,заменять старые устройства на современные,неисправные - на работающие.
1024 бита=1024/8=128 байт
24 байта=24*8=192 бита
1000 байт=1000/(2в 10 степени) килобайт=1000/(2 в 20 степени) Мегабайт
81000920 бит=81000920/8/1024=9887,8 килобайт=9887,8/1024=9,656 мегабайт