// 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.
<u>Простой алгоритм из 9 шагов:
</u>1) Берем сковороду
2) Ставим на нагретую плиту
3) Берем 3 яйца
4) Берем тарелку
5) Разбиваем яйца в тарелку
6) Взбиваем яйца
7) Выливаем на сковороду
8) Ждем 5 минут
9) Выключаем плиту<u>
</u>
16 бит * 24000 Гц * 4 канала * 1 сек = 1536000 бит
1536000 бит / 8 = 192000 байт
192000 байт / 1024 = 187,5 кбайт.
187.5 кбайт / 1024 = 0,18310546875 мбайт
48 мбайт / 0,18310546875 мбайт = 262,144 секунд
из этих и выбери
У пера нет толщины - не положено ему, цвет выбирают в палитрах Color или Swatch
<span>Когда пером сделали контур - клик правой кнопкой мыши и выбрать -- Выполнить обводку контура. Вам предложат выбрать кисть или карандаш - и толщина будет такой какая толщина кисти или карандаша задана заранее.</span>