//PascalABC.NET 3.2 сборка 1318
Const
gal=4,54609;
Var
x:real;
begin
readln(x);
writeln(x*gal);
end.
//2
Var
b1,q:real;
n:integer;
begin
readln(b1,q,n);
if (b1=0) or (q=0) then
begin
writeln('b1=0 or q=0');
exit;
end
else
if q=1 then
begin
writeln('Sum=',b1*n);
writeln('Bn=',b1);
end
else
begin
Writeln('Sum=',b1*(1-power(q,n))/(1-q));
Writeln('Bn=',b1*power(q,n-1));
end;
end.
Проведем упрощения.
Оба выражения свелись к одному и тому же. Его функциональная схема дана во вложении.
Оптимизацией системы и увеличением числа ядер, <span>тактовых частот</span>
есть число 126.
2⁷=128, это больше 126, значит нам оно не нужно
2⁶=64 , меньше 126, подходит
126-64=62
2⁵=32 меньше 62, подходит
62-32=30
2⁴=16, меньше 30, подходит
30-16=14
2³=8, меньше 14, подходит
14-8=6
2²=4, меньше 6, подходит
6-4=2
2¹=2, равно 2, подходит
2-2=0
2⁰=1, больше 0, не подходит
получаем 126=1*2⁶+1*2⁵+1*2⁴+1*2³+1*2²+1*2¹+0*2⁰
Двоичное число 1111110