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

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

Write(R);

END.

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

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

Function F(x: integer): integer;

Begin

F: = x*x + 2*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.

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

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

Function F(x: integer): integer;

Begin

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

End;

BEGIN

a: =-20; b: =0;

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.

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

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

Function F(x: integer): integer;

Begin

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

End;

BEGIN

a: =0; 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(R);

END.

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

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

Function F(x: integer): integer;

Begin

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

End;

BEGIN

a: =-2; 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.

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

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

Function F(x: integer): integer;

Begin

F: = 2*(x-9)*(x-9)+12;

End;

BEGIN

a: = -20; b: = 20;

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

for t: = a to b do

if (F(t)< R) then begin

M: = t;

R: = F(t);

End;

Write(M);

END.

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

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

Function F(x: integer): integer;

Begin

F: = 9*(x-15)*(x+17)+2;

End;

BEGIN

a: = -20; b: = 20;

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

for t: = a to b do

if (F(t)< R) then begin

M: = t;

R: = F(t);

End;

Write(M);

END.

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

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

Function F(x: integer): integer;

Begin

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

End;

BEGIN

a: = -20; b: = 20;

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

for t: = a to b do

if (F(t)> R) then begin

M: = t;

R: = F(t);

End;

Write(M);

END.

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

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

Function F(x: integer): integer;

Begin

F: = 5*(x+10)*(x+2)+2;

End;

BEGIN

a: = -20; b: = 20;

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

for t: = a to b do

if (F(t)< R) then begin

M: = t;

R: = F(t);

End;

Write(M);

END.

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

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

Function F(x: integer): integer;

Begin

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

End;

Begin

a: = -11; b: = 11;

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

t: =a;

while t < b do

Begin

if (F(t)> R) then

Begin

M: = t;

R: = F(t);

End;

t: =t+2;

End;

Write(R);

End.

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

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

Function F(x: integer): integer;

Begin

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

End;

Begin

a: = -11; b: = 11;

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

t: =a;

while t < b do

Begin

if (F(t)> R) then

Begin

M: = t;

R: = F(t);

End;

t: =t+2;

End;

Write(M);

End.

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

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

Function F(x: integer): integer;

Begin

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

End;

Begin

a: = -11; b: = 11;

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

t: =a;

while t < b do

Begin

if (F(t)> =R) then

Begin

M: = t;

R: = F(t);

End;

t: =t+2;

End;