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

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

Readln(x, у);

if у > x then begin

z: = x; x: = у; у: = z;

End;

a: = x; b: = y;

while b > 0 do begin

r: = a mod b;

a: = b;

b: = r;

End;

Writeln(a);

Writeln(x);

Write(у);

End.

41) Ниже записан алгоритм. Укажите наименьшее из таких чисел N, при вводе которых алгоритм напечатает 17.

var N, q, i: integer;

Begin

Read(N);

for i: =1 to N-1 do begin

if N mod i = 0 then q: =i

End;

Write(q)

End.

42) (https://ege.yandex.ru) Ниже записана программа. Получив на вход число , эта программа печатает два числа, и . Укажите, сколько есть таких чисел , при вводе которых алгоритм печатает сначала 2, а потом 12.

var x, a, b: integer;

Begin

Readln(x);

a: =0; b: =1;

while x > 0 do begin

a: = a + 1;

b: = b * (x mod 10);

x: = x div 10;

End;

Writeln(a); write(b);

End.

43) (https://ege.yandex.ru) Ниже записана программа. Получив на вход число , эта программа печатает два числа, и . Укажите наибольшее из чисел , при вводе которых алгоритм печатает сначала 2, а потом 8.

var x, a, b: integer;

Begin