2^n в двоичной системе - это 1 и n нулей после неё. Например, 2^5(10) = 100000(2)
Приведём все степени к основанию 2
2^3702-2^468+2^1620-108
-108 можно представить как -128 + 16 + 4
2^3702-2^468+2^1620-2^7 + 2^4 + 2^2
Теперь выстраиваем степени в порядке убывания:
2^3702+2^1620-2^468-2^7 + 2^4 + 2^2
В выражении два вычитания подряд, избавимся от этого, заменив -2^468 на -2^469 + 2^468
2^3702+2^1620 -2^469+2^468-2^7 + 2^4 + 2^2
2^3702 - 1 единица
2^4 - 1 единица
2^2 - 1 единица
Количество единиц в вычитаниях будет равно разнице степеней. Например 1000000-100=1111
2^1620 -2^469 - количеств единиц 1620-469 = 1151
2^468-2^7 - количество единиц 468-7 = 461
Общее количество единиц равно 3+1151+461 = 1615
Var
y, x : integer;
begin
readln(x);
if x >= 1 then
y := 1
else if (x > -1) and (x < 1) then
y := 0
else if x < 0 then
y := -1;
writeln(y);
end
var
sum, temp, i: integer;
sr: real;
d_n: array[1..7] of string;
begin
sum := 0;
d_n[1] := 'Понедельник>>'; d_n[2] := 'Вторник>>'; d_n[3] := 'Среда>>'; d_n[4] := 'Четверг>>'; d_n[5] := 'Пятница>>'; d_n[6] := 'Суббота>>'; d_n[7] := 'Воскресенье>>';
for i := 1 to 7 do
begin
write(d_n[i]);
readln(temp);
sum += temp;
end;
writeln(sum / 7);
end.
Представленную в двоичном виде(ДВОИЧНЫЙ КОД)
Program korni;
uses crt;
var
a,b,c:integer;
x1,x2:real;
begin
writeln('введите коэффициент А, B и С');
readln(a,b,c);
x1:=sqr(b)-4*a*c;
x2:=(b*(-1)-sqrt(x1))/a*2;
x1:=(b*(-1)+sqrt(x1))/a*2;
writeln('корни уравнения: x1=',x1,',x2=',x2);
end.