Program Program1;
var
s:string;
begin
write('Введите натуральноее число: ');
readln(s);
writeln('Полученное число: ', s+s)
end.
а) для логического умножения: А & В = Ᾱ v В(инверсия):
А В А & В (А & В)(инверсия) Ᾱ В(инверсия) Ᾱ v В(инверсия)
0 0 0 1 1 1 1
0 1 0 1 1 0 1
1 0 0 1 0 1 1
1 1 1 0 0 0 0
б) для логического сложения: A v В = Ᾱ & В(инверсия):
А В A v В (A v В)(инверсия) Ᾱ В(инверсия) Ᾱ & В(инверсия)
0 0 0 1 1 1 1
0 1 1 0 1 0 0
1 0 1 0 0 1 0
1 1 1 0 0 0 0
Что бы из 10-ной с.с перевести в 2-ную,8-ричную,16-ричную системя счисления необходимо поделить данное число на основание с.с в которую хотим перевести числа,т.е у на число 137 (10)"в десятичной с.с" мы ходим перевести в двоичную с.с то мы число 137 делим на основание с.с (т.е на 2) до тех пор пока частное не станет меньше делимого,затем записываем ответ с последнего частного и всех последующих остатков(т.е с конца выражения) , и так же в других с.с (делим число на 8, потом делим число на 16)
а что бы выполнить перевод из 2-ной,8-ной,16-ной с.с необходимо расставить степени числа начиная от знака равно(справа на лева ) от нулевой степени по n-ную степень,затем затем записать разложить данное число на сумму произведения основания с.с и составляющую числа.
так что как то так,смотреть рисунки =)
в 16-ричной с.с алфавит системы составляют числа от 0 до 9,а до 16 цифр дополняется буквами: A=10, B=11, C=12, D=13, E=14,F=15
<span>var i,s:integer;
begin
s:=0;
for i:=1 to 100 do
if i mod 3 = 0 then s:=s+i;
writeln('s = ',s);
end<span>.
Результат:
</span><span>s = 1683</span></span>
