Var
n,i:integer;
Begin
Write('n = ');Read(n);
i:=0;
if n div 1000 = n mod 10 then i:=i+1;
if (n mod 10 = (n div 10) mod 10) then i:=i+1;
n:=n div 10;
if (n mod 10 = (n div 10) mod 10) then i:=i+1;
n:=n div 10;
if (n mod 10 = (n div 10) mod 10) then i:=i+1;
n:=n div 10;
if i=1 then Write('Верно')
else Write('Не верно')
End.
А2=А1+2=6+2=8
В2=С1-2=6-2=4
С2=А1/В1*2=6:3•2=4
Если взглянуть на схему, то видно ,что два маленьких треугольника равны и два больших треугольника равны, следовательно
В2=С2
А2=D2=8
D1=8-3=5
Прямой код:
9₁₀=00001001₂
2₁₀=00000010₂
5₁₀=00000101₂
7₁₀=00000111₂
Обратный код:
-9₁₀=11110110₂
-2₁₀=11111101₂
-5₁₀=11111010₂
-7₁₀=11111000₂
Дополнительный код:
-9₁₀=11110111₂
-2₁₀=11111110₂
-5₁₀=11111011₂
-7₁₀=11111001₂
Обр. коды:
а) 9-2=00001001+11111101=100000110₂
б) 2-9=00000010+11110110=11111000₂
в) -5-7=11111010+11111000=111110010₂
Доп. коды:
а) 9-2=00001001+11111110=100000111₂
б) 2-9=00000010+11110111=11111001₂
в) -5-7=11111011+11111001=111110100₂