Подготовьте столбец А и строку 2
В ячейку B3 введите формулу =($A3*10+B$2)^2 и скопируйте в остальные
В примере это уже приготовлено
В строке формул увидите саму формулу
Такой пример уже был
Ответ:
10001010111
Объяснение:
[Log2(1111)]=<u>10</u>
2^10=1024
1111-1024=87
[Log2(87)]=<u>6</u>
2^6=64
87-64=23
[Log2(23)]=<u>4</u>
2^4=16
23-16=7
[Log2(7)]=<u>2</u>
2^2=4
7-4=3
[Log2(3)]=<u>1</u>
2^1=2
3-2=1
[Log2(1)]=<u>0</u>
Искомая двоичная запись числа состоит из 11 разрядов (от 0 до 10). Нумерация разрядов от 0 до 10 справа налево.
В выделенных номерах разрядов стоят единицы, в остальных нули.
Запишем в верхней строчке номера разрядов, в нижней значения:
10 9 8 7 6 5 4 3 2 1 0
1 0 0 0 1 0 1 0 1 1 1
<em /><em />Если в три переменные:
var a,b,c:integer;
begin
writeln ('Введите 3 числа');
read (a,b,c);
if (a=b)or (a=c) or (b=c) then
begin
if (a>1) and (b>1) and (c>1)and (a=b) and (a=c) and (b=c) then //Одно ненужное условие для наглядности
writeln ('Все числа одинаковые');
if ((a>1) and (b>1) and (a=b)) or ((a>1) and (c>1) and (a=c)) or ((b>1) and (c>1) and (b=c)) then writeln (2);
end
else writeln ('Нет одинаковых чисел');
end.
Var a,b,c:real;
Begin
write('Введите a,b,c: ');readln(a,b,c);
if (a>=b)and(b>=c) then
Begin
a:=a*2;
b:=b*2;
c:=c*2;
End
else
Begin
a:=abs(a);
b:=abs(b);
c:=abs(c);
End;
writeln('a = ',a:2:2,' b = ',b:2:2,' c = ',c:2:2);
readln;
End.
Для целесообразности вместо корня из 1 заранее используется 1 (поскольку нет нужды вычислять).
--- КОД ПРОГРАММЫ НИЖЕ ---
// Проверено в PascalABC.NET (версия 3.2, сборка 1363)
program zz;
var
n, i, u, d, f, c, ff, cc: integer;
y: real;
procedure GetDiv();
begin
ff := f;
cc := c;
d := 0;
while cc > 0 do
begin
d := d + ff;
ff := ff + 1;
cc := cc - 1;
end;
end;
function Facto(num: integer): integer;
var
ff, fi: integer;
begin
ff := 1;
for fi := 2 to num do
ff := ff * fi;
Facto := ff;
end;
begin
write('n = ');
readln(n);
y := 0;
f := 2;
c := 2;
for i := 1 to n do
begin
u := Facto( n - (i - 1) );
if i = 1 then
d := 1
else
begin
GetDiv();
f := ff + 1;
c := c + 1;
end;
y := y + (u / d);
end;
writeln('y = ', y);
end.