Var a,b,c: integer; begin clrscr; write('надо написать 1 число'); read(a); write('надо написать 2 число'); read(b); if a< b then write('c=',a) else write('c=',b); end.
Спасибо
Ответ дал: Гость
1) чтобы перевести из 2-ой системы в 10-ную нужно каждую цифру умножить на основание системы счисления в степени в какой стоит цифра:
2) чтобы перевести число из 10-ой системы в 2-ную нудно делить исходной число на 2 до тех пор пока исходной число не станет меньше 2, остатки от деления записанные в обратном порядке будут результатом
Популярные вопросы