Вулье живут пчелы часть улетела собирать мед известно что у нем живёт 8000 пчел сколько пчел на данный момент не работает если для числа работающих пчел в 9 ричной системе счисления 4 младших разрядов числа числа заполнены максимальными значениями

👇

Увидеть ответ

Ответ:

nastushkaplushka

01.05.2021

8000 - (8*9*9*9+8*9*9+8*9+8) = 1440 пчел не работают

4,4(24 оценок)

Открыть все ответы

Ответ:

rlynx675

01.05.2021

Объяснение:

Датчики являются элементом технических систем, предназначенных для измерения, сигнализации, регулирования, управления устройствами или процессами. Датчики преобразуют контролируемую величину (давление, температура, расход, концентрация, частота, скорость, перемещение, напряжение, электрический ток и т. п.) в сигнал (электрический, оптический, пневматический), удобный для измерения, передачи, преобразования, хранения и регистрации информации о состоянии объекта измерений.

Исторически и логически датчики связаны с техникой измерений и измерительными приборами, например термометры, расходомеры, барометры, прибор «авиагоризонт» и т. д. Обобщающий термин датчик укрепился в связи с развитием автоматических систем управления, как элемент обобщенной логической концепции датчик — устройство управления — исполнительное устройство — объект управления. В качестве отдельной категории использования датчиков в автоматических системах регистрации параметров можно выделить их применение в системах научных исследований и экспериментов.

4,8(11 оценок)

Ответ:

Марс2014

01.05.2021

Задача, аналогичная той, которую публиковали вчера. Только цикл repeat заменяем на while.

Сначала немного математики.
$\displaystyle a_n= \frac{n!}{(2n)!}=\frac{\prod_{i=1}^ni}{\prod_{i=1}^{2n}i}=\frac{\prod_{i=1}^ni}{\prod_{i=1}^{n}i\times\prod_{i=n+1}^{2n}i}=\frac{1}{\prod_{i=n+1}^{2n}i}; \quad n\in\mathbb N$
О модуле тут смысла нет говорить, поскольку все an - суть положительные величины на интервале (0;1).

uses Crt;

function ai(n:integer):real;
var
i:integer;
p:real;
begin
p:=1;
for i:=n+1 to 2*n do p:=p*i;
ai:=1/p
end;

var
i:integer;
eps,s,an:real;
begin
ClrScr;
Write('eps='); Read(eps);
s:=0; i:=1; an:=eps+1;
while an>=eps do begin
   an:=ai(i);
   if an>=eps then begin s:=s+an; Inc(i) end
end;
Writeln('s=',s);
ReadKey
end.

Тестовые решения:
eps=0.07
s= 5.8333333333E-01

eps=0.000001
s= 5.9229647667E-01

eps=1e-8
s= 5.9229653448E-01

Для контроля результата можно отметить, что сумма первых 1000 членов ряда равна приблизительно 5.922965365Е-01

Если раздражает наличие функции, можно и без нее:
uses Crt;

var
i,j:integer;
eps,s,an,p:real;
begin
ClrScr;
Write('eps='); Read(eps);
s:=0; i:=1; an:=eps+1;
while an>=eps do begin
    p:=1;
    for j:=i+1 to 2*i do p:=p*j;
    an:=1/p;
    if an>=eps then begin s:=s+an; Inc(i) end
end;
Writeln('s=',s);
ReadKey
end.

4,4(84 оценок)

Это интересно:

Финансы-и-бизнес

25.01.2020

Как открыть счет в швейцарском банке: необходимые шаги и требования...

Компьютеры-и-электроника

19.04.2023

Как прекратить получение сообщений на Facebook...

Стиль-и-уход-за-собой

22.08.2021

Как эффективно удалить губную помаду?...

Искусство-и-развлечения