14:
14(10) = 8+4+2 = 1110(2)
В 8-разрядной ячейке: 00001110
В знаковом (старшем) разряде положительного числа - значение "0".
Обратный и дополнительный код положительного числа совпадает с прямым кодом.
-31:
31 = 16+8+4+2+1 = 11111(2)
В 8-разрядной ячейке: 00011111
Получим обратный код отрицательного числа, заменив все цифры на противоположные (0 на 1, 1 на 0): 11100000
В знаковом (старшем) разряде отрицательного числа - значение "1".
Получим дополнительный код отрицательного числа, добавив 1 к младшему разряду: 11100000+1 = 11100001
Выполним сложение: 00001110+11100001 = 11101111
В результате сложения получили отрицательное число (в старшем разряде "1").
Определим абсолютную величину этого числа.
Вычтем 1: 11101111-1 = 11101110
Заменим все цифры на противоположные: 00010001
00010001 = 2^4+2^1 = 16+1 = 17
Итак, с учётом знака "-", получили результат -17
14+(-31) = -17
1)
var a:integer;
begin
for a:=1 to 5 do
write(a,' ');
<span>end.
2)
var a:integer;
begin
for a:=5 downto 1 do
write(a,' ');
<span>end.</span></span>
var
i:integer;
begin
for i := 10 to 99 do
if (((2*i) mod 10) = 8) and (((3*i) mod 10) = 4) then
write(i,' ');
end.
<span>256 цветов это глубина цвета 8 бит (т. е. 2 в степени 8)=1 байт; 10*10=100 точек; 100*1=100 байт. Ответ: 100 байт. </span>
Var
x:real;
Begin
Write('x = ');ReadLn(x);
if x <= -12 then x:=-x*x
else if (-12 < x)and(x < 0) then x:=x*x*x*x
else x:=x-2;
WriteLn('y = ',x);
End.
Var
a,b,c:real;
Begin
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
Write('c = ');ReadLn(c);
if (a<b)abd(b<c) then Write('Верно')
else Write('Неверно')
End.