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

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

Readln(x);. 1) видим, что в последней строке выводятся на экран переменные a и b, поэтому сначала нужно определить

Begin

a: = 0;

b: = 0;

Readln(x);

while x > 0 do begin

y: = x mod 10;

if y > 3 then a: = a + 1;

if y < 8 then b: = b + 1;

x: = x div 10

End;

Writeln(a);

Writeln(b)

End.

Решение:

1) видим, что в последней строке выводятся на экран переменные a и b, поэтому сначала нужно определить, что они обозначают в программе

2) перед началом цикла переменные a и b обнуляются

3) на каждом шаге цикла при выполнении некоторых условий переменные a и b увеличиваются на 1, то есть представляют собой счётчики

4) увеличение переменных зависит от значения y = x mod 10, то есть от последней цифры числа

5) если последняя цифра числа больше 3, увеличивается счётчик a, если меньше 8 – счётчик b;

6) в конце каждого шага цикла операция x: =x div 10 отсекает последнюю цифру в десятичной записи числа

7) цикл заканчивается, когда перестаёт выполняться условие x > 0, то есть, когда все цифры исходного числа отброшены

8) таким образом, делаем вывод: после завершения цикла в переменной a находится количество цифр, больших 3, в десятичной записи числа, а в переменной b – количество цифр, меньших 8

9) если было выведено 4 и 2, то в числе 4 цифры больше 3 и 2 цифры меньше 8

10) так как число пятизначное, есть 4 + 2 – 5 = одна цифра, которая больше 3 и меньше 8 одновременно; она должна быть минимальной, поэтому эта цифра 4

11) для того чтобы число было минимальным, ещё одна цифра должна быть минимальной и меньшей 3 – это старшая 1, и три цифры минимальные из цифр, больших или равных 8, то есть три цифры 8

12) ответ: 14888.

Ещё пример задания:

P-05. Ниже записан алгоритм. Сколько существует таких чисел , при вводе которых алгоритм печатает сначала 2, а потом 12?

var x, a, b: integer;

Begin

readln(x);

a: =0; b: =0;

while x> 0 do begin

a: =a + 1;

b: =b + (x mod 10);

x: =x div 10;

End;