Что бы перевести число из 10-чной СС в СС с другим основанием (в данной задаче с основанием 8 и 16) надо это число последовательно делить на основание новой СС, записывая остатки от деления в обратном порядке. Это и будет искомое число. При этом учитываем, что двузначные остатки обозначаются буквами английского алфавита, например 10 это A, 11 - B, 12 - C и т.д.
Таким образом получаем:
79 : 2 = 39 (остаток 1)
39 : 2 = 19 ( 1 )
19 : 2 = 9 ( 1 )
9 : 2 = 4 ( 1 )
4 : 2 = 2 ( 0 )
2 : 2 = 1 ( 0 )
1 : 2 = 0 ( 1 )
Собираем остатки в обратном порядке, получаем число 100111,
т.е. 79 (в 10 СС) = 100111 (в 2 СС)
79 : 16 = 4 ( ост. 15 ) ..... 15 соответствует букве F
4 : 16 = 0 ( 4 )
<span>т.е. 79 (в 10 СС) = 4F (в 16 СС)
</span>
Аналогично получаем:
<span>79 (в 10 СС) = 117 (в 8 СС)
169 </span><span>(в 10 СС) = 10100100 (в 2 СС)
</span>169 <span>(в 10 СС) = 244 (в 8 СС)
</span>169 <span>(в 10 СС) = A4 (в 16 СС)</span>
<span>Все сильнее и сильнее высокие технологии входят в нашу жизнь. Компьютеризированные телескопы, множество гаджетов- это не воспаленная фантазия писателей, а наше время. Одной из таких "фантастических чуд"- роботы. Роботы все чаще и чаще заменяют человека на множествах работ, где "железному другу" проще, чем человеку. Посредством алгоритмов роботы решают самые запутанные задачи. К примеру, роботизированный станок используется на множествах фабрик, от производства конфет и до заводов по сборке автомобилей. Почти каждая деталь сделана специальным станком, подчиняющийся алгоритмам и командам, созданных человеком!</span>
#1
program Program1;var rub, dol:real;begin writeln('Введите сумму в рублях:'); readln(rub); dol:=rub/67; writeln('Сумма в доллорах= ',dol); end.
#2
program Program1;var a,b:integer;beginwriteln('Введите целое число:');readln(a);
if a>0 then b:=a-a-a;if a<0 then b:=a;if a=0 then writeln('Чило = 0');writeln('Чило a=',b); end.
Попугай: голова , перо кВ попугай туловище хвост крило
<span>По ссылке наверняка что-нибудь есть:
http://bfy.tw/EOx3</span>