6*s*s*s*s*s > 800*s*s*s
s*s*s*s*s = 
s*s*s = 
Заменим s на x;
Цикл прервется когда выполнится условие 6*s*s*s*s*s < 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 > 11.
7-я итерация цикла s=-13. цикл завершается.
Всего 6 итераций.
посмотрим на n:
n=3 и каждую итерацию
увеличивается на 2 => нужно вычислить 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.
Алгоритм – точное предписание исполнителю совершить последовательность действий для достижения поставленной цели за конечное число шагов.
Исполнитель решает задачу по заданному алгоритму, строго следуя по предписаниям (программе) не вникая и не рассуждая, почему он так делает.
Исполнитель алгоритма – человек или устройство выполнить определённый набор команд.
Последовательность написания алгоритмов:
1. Поставить задачу
2. Придумать список команд для исполнителя(СКИ)
3. Составить алгоритм из СКИ
Пример:
Задача: Напишите для робота - повара алгоритм приготовление чая
СКИ: налить кипяток, помешать, налить молоко, насыпать сахар, насыпать заварку.
Алгоритм :
> насыпать заварку > налить кипяток > насыпать сахар > налить молоко > помешать
Задача 1
var
y, x: integer;// Объявляем переменные типа Integer
begin// Начало блока
writeln('Введите X: '); //Выводим текст на экран
read(x); //Читаем значение введеное с кливиатуры и записываем его в переменную
y := 7 * x * 2 - 3 * x + 6; //Выолняем выражение
writeln('Результат: ', y);// Выводим результат
end. // конец блока
Задача 2:
var
a, b, c: integer;//Объявление переменных
begin
write('Введите длину ребра куба '); //Вывод текста на экран
read(a); //Читаем значение введеное с клавиатуры
b := a * a * a; //Вычисляем объем куба
c := 6 * sqr(a); //Sqr - квадрат числа
{Далее опять же вывод результата}
writeln('Объём куба равен ', b);
writeln('Площадь боковой поверхности куба равна ', c);
end.
Задача 3
var
k: integer;//Объявление переменных
begin
write('Введите число: '); //Вывод текста на экран
read(k); //Читаем значение введное с клавиатуры
if Odd(k) then //Odd - возвращает True - если значение нечетно и False если четно
writeln('Нечетное')
else
writeln('Четное');
end.
Задача 4:
var
a, b: integer;
begin
writeln('Введите a и b через пробел:');
readln(a, b);
if (b mod a = 0) then writeln('Число ', a, ' является делителем числа ', b)
else writeln('Число ', a, ' НЕ является делителем числа ', b);
end.
Задача 5:
var
a, b: real;
begin
writeln('Через пробел введите 2 числа: ');
read(a, b);
if a > b then //Условие если А больше Б
begin
a := a / 2; //Делим число А на 2 и выводим результат
writeln('A:= ', a, ' B:= ', b);
end
else //Иначе оставляем все как и было
writeln('A:= ', a, ' B:= ', b);
end.