Var
a,b,c,k:integer;
begin
Read(a,b,c);
k:=1;
repeat
b:=2*b;
a:=a-b div 2;
if a<=0 then Writeln('Черт разорен')
else
begin
a:=a+c;
b:=b-c;
if b<=0 then Writeln('Крестьянин разорен')
else k:=k+1
end
until (a<=0) or (b<=0);
Writeln(k)
end.
Var x, a, b, c, s: integer;
begin
write('Введите число: '); readln(x);
a := x div 100;
b := (x div 10) mod 10;
c := x mod 10;
s := a + b + c;
writeln('Число принадлежит ', a, ' сотне');
if(s mod 2 = 0) then writeln('Сумма цифр четная')
else writeln('Сумма цифр нечетная');
end.
a - сотни
b - десятки
с - единицы
Надеюсь я правильно тебя понял.
"Впервые продемонстрировал огромные потенциальные возможности применения двоичной системы для вычислений ещё изобретатель логарифмов шотландский математик <span>Джон Непер (1550-1617)."
</span>В 1617 году Джон Непер <span>изобрел </span>счетное устройство (па́лочки Не́пера, или не́перовы па́лочки), призванное облегчить арифметические вычисления. Устройство состояло из брусков с нанесенными на них цифрами от 0 до 9 и кратными им числами. Для умножения какого-либо числа бруски располагали рядом так, чтобы цифры на торцах составляли это число. Ответ можно было увидеть на боковых сторонах брусков. Помимо умножения, палочки Непера позволяли выполнять деление и извлечение квадратного корня.
Гутер Р. С., Полунов Ю. Л. Двоичная арифметика в инструментальном счете у Джона Непера // Историко-математические исследования. Вып. 23. М.: Наука, 1978. С. 156-167.
V = H * t * I *K, где
V - объем;
H - частота дискретизации;
t - время;
I - количество бит;
K - канал.
V = (24000Гц * 180 *8 * 7)/2^23 = (2^3 * 3000 * 2^2 * 45 * 2^3 * 7)/2^23 = (2^8 * 945000)/2^23 = 945000/2^15 = 945000/32768 ~ 28,839 мбайт.
Ответ: 2.