91
- в двоичную
<span>Делим число на 2 и выписываем остатки</span>
<span>91 = 45·2 + </span>1
<span>45 = 22·2 + </span>1
<span>22 = 11·2 + </span>0
<span>11 = 5·2 + </span>1
<span>5 = 2·2 + </span>1
<span>2 = 1·2 + </span>0
<span>Последний множитель перед 2 равный </span>1<span> записываем первым.</span>
<span>Затем записываем найденные остатки в обратном порядке.</span>
<span>Получаем: </span>1011011
- в восьмеричную
<span>Делим число на 8 и выписываем остатки</span>
<span>91 = 11·8 + </span>3
<span>11 = 1·8 + </span>3
<span>Последний множитель перед 8 равный </span>1<span> записываем первым.</span>
<span>Затем записываем найденные остатки в обратном порядке.</span>
<span>Получаем: </span>133
- в шестнадцатиричную
<span>Делим число на 16 и выписываем остатки</span>
<span>91 = 5·16 + </span>11<span> (11 записывается как </span>B<span>)</span>
<span>Последний множитель перед 16 равный </span>5<span> записываем первым.</span>
<span>Затем записываем найденные остатки в обратном порядке.</span>
<span>Получаем: </span>5B
52
- в двоичную
<span>Делим число на 2 и выписываем остатки</span>
<span>52 = 26·2 + </span>0
<span>26 = 13·2 + </span>0
<span>13 = 6·2 + </span>1
<span>6 = 3·2 + </span>0
<span>3 = 1·2 + </span>1
<span>Последний множитель перед 2 равный </span>1<span> записываем первым.</span>
<span>Затем записываем найденные остатки в обратном порядке.</span>
<span>Получаем: </span>110100
- в восьмеричную
<span>Делим число на 8 и выписываем остатки</span>
<span>52 = 6·8 + </span>4
<span>Последний множитель перед 8 равный </span>6<span> записываем первым.</span>
<span>Затем записываем найденные остатки в обратном порядке.</span>
<span>Получаем: </span>64
- в шестнадцатиричную
<span>Делим число на 16 и выписываем остатки</span>
<span>52 = 3·16 + </span>4
<span>Последний множитель перед 16 равный </span>3<span> записываем первым.</span>
<span>Затем записываем найденные остатки в обратном порядке.</span>
<span>Получаем: </span>34
Делить байты на 1024. в 1 килобайте 1024 байт
Var a,b,c:integer; x:char;
begin
repeat
write('a = '); readln(a);
write('b = '); readln(b);
write('c = '); readln(c);
if (a+b>c)and(a+c>b)and(b+c>a)
then writeln('Стороны могут образовать треугольник')
else writeln('Стороны не могут образовать треугольник');
writeln('Желаете повторить? (Y/N)');
readln(x);
until x='N';
end.
Пример:
<span>a = 3
b = 5
c = 4
Стороны могут образовать треугольник
Желаете повторить? (Y/N)
Y
a = 8
b = 1
c = 5
Стороны не могут образовать треугольник
Желаете повторить? (Y/N)
<span>N</span>
</span>
1) 11001000
2) 111101001
3) 1000011111
4) 1110110110
5) 10000000001
Решение:
например число 489
Каждое из полученных чисел дели на 2
489=244*2+1
244=122*2+0
122=61*2+0
61=30*2+1
30=15*2+0
15=7*2+1
7=3*2+1
3=1*2+1
2=2*1
Записываем в обратном порядке выделенные числа и получаем 111101001
P.S. для правильности следует записать все вычесления в столбик
