Var x, y, z : integer;
Begin
read(x, y, z);
if x mod 2 = 0 then x:= x*y*z
else if y mod 2 = 0 then y:= x*y*z
else if z mod 2 = 0 then z:= x*y*z;
writeln(x:3, y:3, z:3);
End.
<span>10011101110101₂=1*2¹³+0*2¹²+0</span><span>*2¹¹+1</span><span>*2¹⁰+1</span><span>*2⁹+1</span><span>*2⁸+0</span><span>*2⁷+1</span><span>*2⁶+1</span><span>*2⁵+ 1</span><span>*2⁴+0</span><span>*2³+1</span><span>*2²+0</span><span>*2¹+1</span><span>*2⁰=</span>8192 + 0 + 0 + 1024 + 512 + 256 + 0 + 64 + 32 + 16 + 0 + 4 + 0 + 1 = 10101₁₀
1111100111₂=1*2⁹+1*2⁸+1*2⁷+1*2⁶+1*2⁵+0*2⁴+0*2³+1*2²+1*2¹+ 1*2⁰=512 + 256 + 128 + 64 + 32 + 0 + 0 + 4 + 2 + 1 = 999₁₀
алг
нач
цел а, в, с
ввод а, в, с
если а<в и в<с то вывод " По росту"
иначе вывод " Не по росту!"
все
кон
Потому что трудно воспринимать текст, написанный в разных стилях. Не то восприятие, рассредоточенность.
Поскольку 64 = 2⁶, для кодирования любого символа алфавита требуется 6 бит. 50 символов потребуют 50×6 = 300 бит - это и есть информационный объем текста.