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

Тот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое раписание, но и напоминать клиентам о визитах тоже. Проблема в том, что средняя цена по рынку за такой сервис — 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.

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

var i, k: integer;

function F(x: integer): integer;

Begin

F: =x*x+8*x;

End;

Begin

i: = 0;

Readln(K);

while F(i) < K do

i: =i+1;

Writeln(i);

End.

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

var i, k: integer;

function F(x: integer): integer;

Begin

F: =x*x*x+x*x+2*x;

End;

Begin

i: = 0;

Readln(K);

while F(i) < K do

i: =i+1;

Writeln(i);

End.

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

var i, k: integer;

function F(x: integer): integer;

Begin

if x < 3 then

F: = 1

else F: = F(x-1) + F(x-2);

End;

Begin

i: = 21;

Readln(K);

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

i: =i-1;

Writeln(i);

End.

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

var i, k: integer;

function F(x: integer): integer;

Begin

if x < 3 then

F: = 1

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

End;

Begin

i: = 15;

Readln(K);

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

i: =i-1;

Writeln(i);

End.

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

var i, k: integer;

function F(x: integer): integer;

Begin

if x < 2 then

F: = 1

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

End;

Begin

i: = 28;

Readln(K);

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

i: =i-1;

Writeln(i);

End.

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

var i, k: integer;

function F(x: integer): integer;

Begin

if x < 2 then

F: = 1

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

End;

Begin

i: = 0;

Readln(K);

while F(i) < K do

i: =i+1;

Writeln(i);

End.

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

var i, k: integer;

function F(x: integer): integer;

Begin

if x < 1 then

F: = 1

else F: = F(x-1) +3*F(x-2);

End;

Begin

i: = 0;

Readln(K);

while F(i) < K do

i: =i+1;

Writeln(i);

End.

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

var k, i: longint;

function f(n: longint): longint;

Begin

f: = n * n + 30

End;

Begin

Readln(k);

i: = 12;

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

i: = i-1;

Writeln(i)

End.

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

var k, i: longint;

function f(n: longint): longint;

Begin

f: = n * n + 20

End;

Begin

Readln(k);

i: = 12;

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

i: = i-1;

Writeln(i)

End.

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

var k, i: longint;

function F(n: longint): longint;

Begin

if x < 2 then

F: = 1

else F: =3* F(x-1) - F(x-2)

End;

Begin

i: = 11;