Переводишь числа из двоичной в десятичную.
101011100=2^8*1 + 2^7*0 + 2^6*1 + 2^5*0 + 2^4*1 + 2^3*1 + 2^2*1 + 2^1*0 + 2^0*0 = 256 + 0 + 64 + 0 + 16 + 8 + 4 + 0 + 0 = 348, 101110=2^5*1 + 2^4*0 + 2^3*1 + 2^2*1 + 2^1*1 + 2^0*0= 32 + 0 + 8 + 4 + 2 + 0 =46,
Складываешь 348+46= 394 и переводишь обратно в двоичную систему счисления. 394 = 110001010<span />
If (1<x) and (x<2)
then begin x:=x+1; y:=0; end
else begin x:=0; y:=y+1; end;
Var a, b, h, k, m, s, p, alpha:real;
begin
read(a, b, alpha);
k:=(a-b)/2;
h:=tan(alpha)*k;
m:=Sqrt(sqr(k)+sqr(h));
p:=a+b+2*m;
s:=(a+b)*h/2;
writeln('Высота равна: ', h);
writeln('Боковые стороны равны: ', m);
writeln('Периметр равен: ', p);
writeln('Площадь равна: ', s)
end.
............................101000000
1. клавиша backspace и delete
2. вопрос не понятен
3. ctrl+c - copy(копировать), ctrl+p paste (вставить)