Для заданных натуральных чисел n и k требуется вычислить количество чисел от 1 до n, имеющих в двоичной записи ровно k едениц. два натуральных числа через пробел n и k, не превышающие 10^9
Ответы
HTML
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<title>Зимняя сказка</title>
<link rel="STYLESHEET" type="text/css" href="./st.css">
</head>
<body background="./images/BLUMRBLL.jpeg" text="#000000" link="#0000FF" vlink="#993366" alink="#0066FF" leftmargin="10" topmargin="10">
<h1 align="center"><b>Зимняя сказка</b></h1>
<p align="center"><img alt="зима" src="./images/winter.gif"></p>
<p align="justify">Зима медленно догорала под еще не жарким весенним солнцем. Сосульки, за долгую зиму наросшие на старой валежине, под которой находилась берлога Медведицы, тихо плакали в потемневший снег. Тогда-то и появился на свет (если только можно назвать "светом" царящие в берлоге сумерки) Медвежонок - маленькая меховая рукавичка с юрким блестящим кнопкой-носиком.
</p>
</body>
</html>
CSS
body{
scrollbar-arrow-color: #2B6868;
scrollbar-track-color: #B8E1E7;
scrollbar-face-color: #86B1B1;
scrollbar-highlight-color: #2B6868;
scrollbar-3dlight-color: #6CA2A2;
scrollbar-darkshadow-color: #4D8E8E;
scrollbar-shadow-color: #2B6868;
scrollbar-base-color: #c2c2c2;
}
a
{
text-decoration: none;
}
a:hover
{
text-decoration: none;
font-size: 14pt;
color: #033280;
size: 5;
alink: #0066FF;
}
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Си++ разобраться с этим нужно, считанные дни до зачёта остались ((
Системы оптического распознавания документов
Склади речення зі словом Премудрий чоловік
с экселем. Я не понимаю как делать с экселем. Я не понимаю как делать
// pascalabc.net
function dec2bin(n: integer): string;
begin
for var c: =31 downto 0 do
result += inttostr((n shr c) and 1);
end;
function count(b: string; c: char): integer;
begin
for var i: =1 to length(b) do
if b[i] = c then
result += 1;
end;
begin
var n: =32;
var k: =3;
var sum: =0;
for var i: =1 to n do
if count(dec2bin(i), '1') = k then
begin
sum += 1;
end;
writeln(sum);
end.