В непрерывно выполняющемся.
Задачу решить проще всего методом подбора.
A2 =
.
B2 =
.
C2 =
.
Следуя логике, x >= 8, так как числитель должен быть больше знаменателя. Пробуем подставить:
A2 =
= 1.
B2 =
= 1.
C2 =
= 2.
Данные значения подходят для диаграммы.
Если решать полностью, то дробь
должны умножить на 2 и приравнять к
, потому что
является четвертью и при умножении равно
.
.
.
Второй корень не имеет смысла считать, так как он отрицательный.
Ответ: 8.
Var
n:longint;
s:string;
k:integer;
begin
Read(n);
Str(n,s); k:=Length(s);
Writeln(Ord(s[k-1])+Ord(s[k-4])-2*Ord('0'))
end.
Основные правила ввода текста:
> не нажимайте на клавишу ввода для перехода на новый ряд;
> не нажимайте на клавишу Пробел для создания абзацных отступов и центрирования текста;
> не нажимайте на клавишу Backspace, чтобы переместить курсор к позиции с ошибкой;
> чтобы получить большую букву, нажмите на клавишу Shift;
> следите, чтобы не была нажата клавиша Caps Lock, иначе все буквы будут большими;
> помните, что следующий абзац (после нажатия на клавишу ввода) унаследует вид (стиль) предыдущего.
С помощью команд пункта Файл или кнопок стандартной панели инструментов, которые их дублируют, над текстовым документом можно выполнить такие важнейшие операции:
1. Создать новый документ(Создать…, Ctrl + N);
2. Открыть старый документ (Открыть…, Ctrl + O);
3. Сохранить на диске (Сохранить, Shift + F12);
4. Сохранить с новым именем (Сохранить как...);
5. Закрыть (Выход);
6. Печатать (Печать…, Ctrl + P);
7. Задать параметры страницы(Параметры страницы…) и другие.
Фрагмент прог-ы на Паскале вместо многоточия:
k:=0;
for i:=1 to N-1 do begin
if (a[i+1]/a[i]>2) then
k:=k+1;
end;
write(k);<span>
</span>