Задачу решить проще всего методом подбора.
A2 =
.
B2 =
.
C2 =
.
Следуя логике, x >= 8, так как числитель должен быть больше знаменателя. Пробуем подставить:
A2 =
= 1.
B2 =
= 1.
C2 =
= 2.
Данные значения подходят для диаграммы.
Если решать полностью, то дробь
должны умножить на 2 и приравнять к
, потому что
является четвертью и при умножении равно
.
.
.
Второй корень не имеет смысла считать, так как он отрицательный.
Ответ: 8.
Var k, n, i: integer;
sum: real;
begin
readln(n, k);
sum:=16;
for i:=1 to n-1 do
sum:=sum+k/i*3;
writeln(sum);
end.
10010111=
2625252625262626
10000000=2625252525252525
10010010
=262525262525262520
<em>// PascalABC.NET 3.3, сборка 1561 от 02.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-99,99).ConvertAll(x->real(x/10));
a.Println;
var imax:=a.Select(x->Abs(x)).ToArray.IndexMax;
var ip:=a.FindIndex(x->x>0)+1;
Writeln('Номер максимального по модулю элемента: ',imax+1);
Writeln('Сумма элементов после первого положительного: ',a[ip:].Sum:0:1)
end.
<u>Пример</u>
n= 13
-5.9 2.8 -8.2 4.8 1.2 -7.3 6.7 4 -5.8 6.4 2.4 -9.3 -8.6
Номер максимального по модулю элемента: 12
Сумма элементов после первого положительного: -13.7