Сервис онлайн-записи на собственном Telegram-боте

Тот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое расписание, но и напоминать клиентам о визитах тоже. Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.
Для новых пользователей первый месяц бесплатно.

Чат-бот для мастеров и специалистов, который упрощает ведение записей:

— Сам записывает клиентов и напоминает им о визите;
— Персонализирует скидки, чаевые, кэшбэк и предоплаты;
— Увеличивает доходимость и помогает больше зарабатывать;

Начать пользоваться сервисом

Как продвинуть сайт на первые места?

Вы создали или только планируете создать свой сайт, но не знаете, как продвигать? Продвижение сайта – это не просто процесс, а целый комплекс мероприятий, направленных на увеличение его посещаемости и повышение его позиций в поисковых системах.

Ускорение продвижения

Если вам трудно попасть на первые места в поиске самостоятельно, попробуйте технологию Буст, она ускоряет продвижение в десятки раз, а первые результаты появляются уже в течение первых 7 дней. Если ни один запрос у вас не продвинется в Топ10 за месяц, то в SeoHammer за бустер вернут деньги.

Начать продвижение сайта

CaseKey of. VK_Enter: window.Close;//при нажатии Enter графическое окно закрывается

VK_Enter: window.Close; //при нажатии Enter графическое окно закрывается

end;

end;

Var

c: pictureABC;

a: textABC;

f: string;

t: string;

Begin

SetWindowSize (1000, 1000); //установка размеров графического окна

t: ='Сопоставьте уствойства с их назначением'; //присвоение переменной t значения

a: = new TextABC (280, 10, 15, t, clblack); //помещение текста (значения переменной t)

f: = '1.bmp'; //присвоение переменной f значения

c: = new PictureABC (100, 80, f); //помещение рисунка в графическое окно

t: = 'Для завершения задания нажмите Enter'; //присвоение переменной t значения

a: = new TextABC (330, 680, 15, t, clBlue); // помещение текста (значение переменной t)

OnMouseDown: = MouseDown; //вызов функции нажатия на клавишу мыши

OnMouseMove: = MouseMove; //вызов функции перемещения мыши

OnKeyDown: = KeyDown; //вызов функции нажатия на клавишу клавиатуры

end.

Результат работы программы.

7) Информатика (методическая основа – Босова, 9 класс, тема «Обработка числовой информации в электронных таблицах»).

Электронные таблицы – это прикладная программа, предназначенная для организации табличных вычислений на компьютере. Наиболее распространенными табличными процессорами являются Microsoft Excel и OpenOffice.org Calc.

Пример: написать программу, которая дает возможность отметить правильные ответы в тесте, представленном на экране. В качестве отметки использовать символ «*».

program test;

uses GraphABC, ABCObjects;

Var

f, t: string;

a: textABC;

c: pictureABC;

procedure MouseDown(x, y, mb: integer); //описание процедуры нажатия на клавишу мыши

var s: string;

Begin

s: ='*'; //пременной s присваиваем начение *

TextOut (x, y, s); //определение координат мета нажатия клавиши мыши и добавление на этом месте значения переменной s

end;

procedure KeyDown (Key: integer); //описание процедуры нажатия на клавишу клавиатуры

Begin