0...125 - 126 возможных значений.
2^6 < 126 < 2^7
На запись результата каждого измерения требуется 7 бит.
Информационный объём результатов наблюдений: 7•70 = 490 бит.
<h3>PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var e:=0.0001;
var x:=ReadReal;
var a:=(x-1)/x;
var (s,n):=(a,2);
repeat
a*=(x-1)/x*(n-1)/n;
s+=a;
n+=1
until a<=e/n;
Writeln(log(x),' ',s)
end.
(алгоритм смотрите ниже)Программа:
Program popcorn;
var y,a,b : real;
begin
write ('ввести два разных числа ');
read(a,b);
if (a>b) then begin y:=a*a-b*b*b;write('разница квадрата большего и куба меньшего числа =',y);end else begin y:=b*b-а*а*а;write('разница квадрата большего и куба меньшего числа =',y);end;
end.
Алгоритм:
1)ввести два разных числа
2)найти большее число
3)написать формулу разности квадрата большего и куба меньшего числа.
Для начала надо выделить и нажать на эти кнопки. Все что выделили скопируется
B2=(10-2)/2=4
Т.к. все части одинаковы, C2=4
Из этого, C1=2
Проверим: A2=2-(-2)=4