Program ToDec;
Uses crt;
var s:string;
n,l,i:integer;
function Pow(x,y:integer):integer;
begin
if y>0 then Pow:=Pow(x,y-1)*x
else Pow:=1;
end;
function ToDec(A : string) : integer;
var L : Byte;
begin
if A = '' then ToDec := 0
else begin
L := length(A);
case A[1] of
'0' : ToDec := ToDec(Copy(A, 2, L - 1));
'1' : ToDec := Pow(2, L - 1) + ToDec(Copy(A, 2, L - 1));
end;
end;
end;
begin
clrscr;
write('Введите двоичное число: ');
readln(s);
writeln('Это число в десятичной системе : ', ToDec(S));
readkey;
end.
а) А = 2
В = 5
А = (В+3)/2 = (5+3)/2 = 4
В = 2*В+А = 2*5+4 = 14
А = В/2 = 14/2 = 7
б) А = 2
В = 5
А = (А+В)*2 = (2+5)*2 = 14
А = А-В = 14-5 = 9
А = А-В = 9-5 = 4
А = В-А = 5-4 = 1
в) А = 2
В = 5
В = В+В = 5+5 = 10
А = А+А = 2+2 = 4
В = А/В = 4/10 = 0.4
2.
а)
(x>-2) and (x<2)
б)
(x>-2) and (x<2) and (y>-2) and (y<2)
в)
(x<=0) and (y<=0)