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

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

Write(M);

END.

2) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:

Var a, b, t, M, R: integer;

Function F(x: integer): integer;

Begin

F: =-(x+4)*(x+2);

End;

BEGIN

a: =-20; b: =20;

M: =a; R: =F(a);

for t: =a to b do begin

if (F(t)> R)then begin

M: =t;

R: =F(t);

End;

End;

Write(M);

END.

3) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:

Var a, b, t, M, R: integer;

Function F(x: integer): integer;

Begin

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

End;

BEGIN

a: =-20; b: =20;

M: =a; R: =F(a);

for t: =a to b do begin

if (F(t)< R)then begin

M: =t;

R: =F(t);

End;

End;

Write(R);

END.

4) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:

Var a, b, t, M, R: integer;

Function F(x: integer): integer;

Begin

F: =(5-x)*(x+3);

End;

BEGIN

a: =-20; b: =20;

M: =a; R: =F(a);

for t: =a to b do begin

if (F(t)> R)then begin

M: =t;

R: =F(t);

End;

End;

Write(R);

END.

5) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:

Var a, b, t, M, R: integer;

Function F(x: integer): integer;

Begin

F: =(x-5)*(x+3);

End;

BEGIN

a: =-5; b: =5;

M: =a; R: =F(a);

for t: =a to b do begin

if (F(t)> R)then begin

M: =t;

R: =F(t);

End;

End;

Write(M);

END.

6) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:

Var a, b, t, M, R: integer;

Function F(x: integer): integer;

Begin

F: =(x+5)*(x+3);

End;

BEGIN

a: =-5; b: =5;

M: =a; R: =F(a);

for t: =a to b do begin

if (F(t)> R)then begin

M: =t;

R: =F(t);

End;

End;

Write(R);

END.

7) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:

Var a, b, t, M, R: integer;

Function F(x: integer): integer;

Begin

F: =(x+7)*(1-x);

End;

BEGIN

a: =-5; b: =5;

M: =a; R: =F(a);

for t: =a to b do begin

if (F(t)< R)then begin

M: =t;

R: =F(t);

End;

End;

Write(M);

END.

8) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:

Var a, b, t, M, R: integer;

Function F(x: integer): integer;

Begin

F: =(x+5)*(1-x);

End;

BEGIN

a: =-5; b: =5;

M: =a; R: =F(a);

for t: =a to b do begin

if (F(t)< R)then begin

M: =t;

R: =F(t);

End;

End;

Write(M);

END.

9) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:

Var a, b, t, M, R: integer;

Function F(x: integer): integer;

Begin

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

End;

BEGIN

a: =-5; b: =5;

M: =a; R: =F(a);

for t: =a to b do begin

if (F(t)< R)then begin

M: =t;

R: =F(t);

End;

End;

Write(R);

END.

10) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:

Var a, b, t, M, R: integer;

Function F(x: integer): integer;

Begin

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

End;

BEGIN

a: =-10; b: =10;

M: =a; R: =F(a);

for t: =a to b do begin

if (F(t)< R)then begin

M: =t;

R: =F(t);

End;

End;

Write(M);

END.

11) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:

Var a, b, t, M, R: integer;

Function F(x: integer): integer;

Begin

F: = x*x + 6*x + 10;

End;

BEGIN

a: =-10; b: =10;

M: =a; R: =F(a);

for t: =a to b do begin

if (F(t)> R)then begin

M: =t;

R: =F(t);

End;

End;

Write(M);

END.

12) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:

Var a, b, t, M, R: integer;

Function F(x: integer): integer;

Begin

F: = x*x - 8*x + 10;

End;

BEGIN

a: =-5; b: =5;

M: =a; R: =F(a);

for t: =a to b do begin

if (F(t)> R)then begin

M: =t;

R: =F(t);

End;

End;