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

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

Синтаксические ошибки

Задание {{101}}

Укажите все правильные варианты ответа

Следующие инструкции содержат синтаксические ошибки

(a: integer)

x a+1: =a;

x a+1;

¨ a: =a+1;

¨ x: =2*a;

Задание {{102}}

Укажите все правильные варианты ответа

Следующие инструкции содержат синтаксические ошибки

(a: string)

x a+1;

x a: =a+1;

x a: =2*a;

¨ a: =a+'15';

Задание {{103}}

Укажите все правильные варианты ответа

Следующие фрагменты программ содержат синтаксические ошибки

x for i=1 to 10 do

x for x: =-10 to 10 begin

¨ for i: =1 to 1 do

¨ for i: =10 downto 1 do

Задание {{104}}

Укажите все правильные варианты ответа

Следующие фрагменты программ содержат синтаксические ошибки

x while a> =b begin

x while a< > b repeat

¨ while a> b do

¨ while a< b do begin a: =a+1; end;

Задание {{105}}

Укажите правильный вариант ответа

Следующие фрагменты программ содержат синтаксические ошибки

x repeat a> 0 do begin a: =a-1; end;

x until a> 0 repeat a: =a-1;

¨ repeat a: =a-1; until a=0;

¨ repeat a: =a-1 until a> 0;

Задание {{106}}

Укажите правильный вариант ответа

x неверное использование функции перевода

¨ неверный тип данных

¨ пропущен знак «;» (точка с запятой)

¨ непарные операторные скобки begin … end

Задание {{107}}

Укажите правильный вариант ответа

Ошибка в программе

var

a, b: integer;

x: integer;

.....

if a> b then

begin

x: =(a+b)/2;

Edit1.Text: = IntToStr (a);

end;

это

x неверный тип данных

¨ пропущен знак «;» (точка с запятой)

¨ непарные операторные скобки begin … end

¨ неверное использование функции перевода

Задание {{108}}

Укажите правильный вариант ответа

Ошибка в программе

var

a, x: integer;

.....

a: = StrToInt(Edit1.Text);

if a> 0 then

begin

x: = a/3;

Edit2.Text: =FloatToStr(x);

end;

это

x неверный тип данных

¨ пропущен знак «;» (точка с запятой)

¨ непарные операторные скобки begin … end

¨ неверное использование функции перевода

Задание {{109}}

Укажите правильный вариант ответа

Ошибка в программе

a, b: integer;

x: real;

.....

a: =IntToStr(Edit1.Text);

if a> 0 then

begin

x: = a/2;

Edit2.Text: =FloatToStr(x);

end;

это

x неверное использование функции перевода

¨ неверный тип данных

¨ пропущен знак «;» (точка с запятой)

¨ непарные операторные скобки begin … end

Задание {{110}}

Укажите правильный вариант ответа

Ошибка в программе

a, b: integer;

x: real;

.....

a: =IntToStr(Edit1.Text);

if a> 0 then

begin

x: = a/2;

Edit2.Text: =FloatToStr(x);

end;

end;

это

x непарные операторные скобки begin … end

¨ неверный тип данных

¨ пропущен знак «;» (точка с запятой)

¨ неверное использование функции перевода