Дано четырехзначное число. Определить входит ли в него цифра b - Turbo Pascal

Формулировка задачи:

Дано четырехзначное число. Определить входит ли в него цифра b.Помогите решить плиз.Заранее благодарю!

Решение задачи: «Дано четырехзначное число. Определить входит ли в него цифра b»

Листинг программы

uses crt;
var a,b,c,d,e,o:integer;
begin
clrscr;
write('Введите Четырехзначное число: ');
readln(a);
writeln('введите  b: ');
readln(b);
c:=a div 1000;
d:=(a-c*1000) div 100;
e:=(a-d*100) div 10;
o:=(a-e*10) div 10;
if (c=b) xor (d=b) xor (e=b) xor (o=b) then writeln('входит') else writeln('не входит');
readkey;
end.

Объяснение кода листинга программы

Этот код написан на Turbo Pascal и выполняет следующую задачу: пользователь вводит четырехзначное число, затем программа проверяет, входит ли в это число цифра b. Давайте разберем код по шагам:

Объявляются переменные a, b, c, d, e и o типа integer. Эти переменные будут использоваться для хранения введенных пользователем чисел и выполнения математических операций.
Программа очищает экран с помощью функции clrscr.
Пользователю предлагается ввести четырехзначное число. Это делается с помощью функции readln(). Введенное число сохраняется в переменной a.
Затем пользователю предлагается ввести цифру b. Это делается с помощью функции readln(). Введенное значение сохраняется в переменной b.
Программа выполняет несколько математических операций для получения различных значений, которые помогут определить, входит ли в число цифра b.
- c := a div 1000; - деление числа a на 1000. Результат сохраняется в переменной c.
- d := (a-c*1000) div 100; - вычисление разности между a и c*1000, затем деление этой разности на 100. Результат сохраняется в переменной d.
- e := (a-d*100) div 10; - вычисление разности между a и d*100, затем деление этой разности на 10. Результат сохраняется в переменной e.
- o := (a-e*10) div 10; - вычисление разности между a и e*10, затем деление этой разности на 10. Результат сохраняется в переменной o.
С помощью оператора if проверяется, равны ли значения переменных c, d, e и o значению переменной b. Если все четыре значения равны, то выводится сообщение входит. В противном случае выводится сообщение не входит.
Программа завершается с помощью функции readkey(), которая позволяет пользователю продолжать работу с программой до тех пор, пока не будет нажата клавиша Enter.