💸 Как сделать бизнес проще, а карман толще?

Тот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое раписание, но и напоминать клиентам о визитах тоже. Проблема в том, что средняя цена по рынку за такой сервис — 800 руб/мес или почти 15 000 руб за год. И это минимальный функционал. Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.
⚡️ Для новых пользователей первый месяц бесплатно. А далее 290 руб/мес, это в 3 раза дешевле аналогов. За эту цену доступен весь функционал: напоминание о визитах, чаевые, предоплаты, общение с клиентами, переносы записей и так далее.
✅ Уйма гибких настроек, которые помогут вам зарабатывать больше и забыть про чувство «что-то мне нужно было сделать».
Сомневаетесь? нажмите на текст, запустите чат-бота и убедитесь во всем сами!

Readln(K);. while (i> 0) and (F(i) > K) do

while (i> 0) and (F(i) > K) do

i: =i-1;

Writeln(i)

End.

Решение (И. Тощенко):

1) Вычислим значения функции F при i=1, 2, 3…

i= 0: f (0) =2

i= 1: f (1) =7

i= 2: f (2) =16

i= 3: f (3) =29

i= 4: f (4) =46

2) Заданное значение К попадает в отрезок [29; 45].

3) Следовательно, всего 45-29+1=17 чисел.

4) ответ: 17.

Ещё пример задания:

Напишите в ответе число различных значений входной переменной k, при которых программа выдаёт тот же ответ, что и при входном значении k = 64. Значение k = 64 также включается в подсчёт различных значений k.

var k, i: longint;

function f(n: longint): longint;

Begin

f: = n * n

End;

Begin

Readln(k);

i: = 12;

while (i> 0) and (f(i)> =k) do

i: = i-1;

Writeln(i)

End.

Решение:

1) заметим, что функция F(x) вычисляет квадрат переданного ей числа

2) в теле основной программы выполняется цикл с условием, который заканчивается, когда значение функции станет меньше k

3) на каждом шаге цикла уменьшается значение переменной i, начиная с 12; цикл также заканчивается, когда значение переменной i станет равно 0

4) после окончания цикла программа выводит значение переменной i.

5) итак, функция выводит первое натуральное значение i, квадрат которого меньше, чем введённое с клавиатуры значение переменной k

6) при k = 64 программа выведет значение 7, поскольку это наибольшее натуральное число, квадрат которого меньше, чем 64

7) фактически нужно ответить на вопрос: сколько есть таких чисел k, которые меньше или равны 8² = 64 и больше, чем 7² = 49 (легко проверить, что при k=65 программа выведет значение 8, в при k=49 – значение 6)

8) в диапазоне [50; 64] всего 64-50+1=15 чисел, это и есть правильный ответ.

9) ответ: 15.

Ещё пример задания:

Определите, количество чисел K, для которых следующая программа выведет такой же результат, что и для K = 24:

var i, k: integer;

function F(x: integer): integer;

Begin

F: =x*x*x;

End;

Begin

i: = 12;

Readln(K);

while (i> 0) and (F(i) > K) do

i: =i-1;

Writeln(i);

End.

Решение:

1) заметим, что функция F(x) вычисляет куб переданного ей числа

2) перед началом цикла значение переменной i равно 12, в цикле оно уменьшается

3) цикл while останавливается, когда переменная i становится равна нулю или значение функции F(i) становится меньше или равно K

4) таким образом, в данной фактически требуется найти количество натуральных чисел в диапазоне [1..12], куб которых больше, чем K = 24

5) определим, у скольких чисел куб меньше, чем 24; это все числа, меньшие, чем , то есть, только числа 1 и 2; поэтому программа выведет 2 – первое число, куб которого меньше или равен 24

6) остаётся определить, когда программа выведет именно 2; это случится при всех K, при которых , то есть при ; в этот диапазон входит 27-8 = 19 чисел

7) Ответ: 19.

Ещё пример задания:

Определите, количество чисел K, для которых следующая программа выведет такой же результат, что и для K = 24:

var i, k: integer;

function F(x: integer): integer;

Begin

if x = 1 then

F: =1

else F: =x*F(x-1);

End;

Begin

i: = 15;