1.Переведите десятичное число (151) в двоичную, восьмеричную и шестнадцатеричную системы счисления. Сделайте проверку.2. Найдите
<span>1.Переведите десятичное число (151) в двоичную, восьмеричную и шестнадцатеричную системы счисления. Сделайте проверку. 2. </span><span>Найдите сумму чисел 52 и 11 в десятичной, двоичной, восьмеричной и шестнадцатеричной системах счисления (в задании представлены числа в десятичной системе счисления). Сделайте проверку. 3.</span>Выполните вычитание целых чисел 61 и 23 в двоичной системе счисления, используя<span> дополнительный двоичный код (в задании представлены числа в десятичной системе счисления). Сделайте проверку.
<em>Пожалуйста, как можно подробнее объясните мне, совсем не понимаю тему переводов:(</em></span>
<em>1. чтобы перевести десятичное число 151 в двоичную систему счисления (0,1 - два символа) ...надо его постоянно делить на 2, а остатки записать в обратном порядке. Аналогично и с восьмеричной системой счисления (0,1,2,3,4,5,6,7 - восемь символов)..и с шестнадцатеричной системой, только здесь для записи чисел в шестнадцатеричной системе используются десятичные цифры от 0 до 9 и латинские буквы от A до F. т.е. 0,1,2,3,4,5,6,7,8,9, А(10), B(11), C(12), D(13),E(14), F(15).</em><span> </span>
Var s1,s2,s3,s4:string; k:integer; begin writeln('Введите 1 слово:'); readln(s1); writeln('Введите 2 слово:'); readln(s2); writeln('Введите 3 слово:'); readln(s3); writeln('Введите 4 слово:'); readln(s4); writeln('Список одинаковых слов'); if (s1=s2)or(s1=s3)or(s1=s4) then begin k:=1; writeln(s1); end; if (s2=s3)or(s2=s4) then begin k:=1; writeln(s2); end; if s3=s4 then begin k:=1; writeln(s3); end; if k=0 then writeln('Одинаковых слов нет'); end.