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

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

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