var s, n : longint;begin s := -1; n := 3;
Var
s, n : longint;
begin
s := -1; n := 3;
while 6*s*s*s*s*s gt; 800*s*s*s do begin
s := s - 2;
n := n * 2
end;
write(n - s)
end.
6*s*s*s*s*s gt; 800*s*s*s
s*s*s*s*s =
s*s*s =
Заменим s на x;
Цикл прервется когда выполнится условие 6*s*s*s*s*s lt; 800*s*s*s
x(-, 20/3) (0, 20/3)
Нас заинтересовывают только отрицательные значения т.к. переменная s =-1 и в цикле она уменьшается.
Граничное значение - 11,54
Поглядим на переменную s:
1-я итерация цикла s=-1
2-я итерация цикла s=-3
3-я итерация цикла s=-5
4-я итерация цикла s=-7
5-я итерация цикла s=-9
6-я итерация цикла s=-11
Цикл продолжится т.к. граничное значение -11,54 gt; 11.
7-я итерация цикла s=-13. цикл заканчивается.
Всего 6 итераций.
поглядим на n:
n=3 и каждую итерацию
возрастает на 2 =gt; необходимо вычислить 7-й член геометрической прогрессии(7 т.к. цикл выполнился 6 раз + n = 3 - 1-й член прогрессии):
x = x * q ; q = 2(каждую итерацию повышение на 2)
x = 3 * 2 = 3 * 2 = 3 * 64 = 192.
n - s = 192 - (-13) = 192 + 13 = 205.
-
Вопросы ответы
Статьи
Информатика
Статьи
Русский язык.
Русский язык.
Разные вопросы.
Қазақ тiлi.
Английский язык.
Математика.
История.
Экономика.
Экономика.
Русский язык.