Рассмотрим вариант решения задания из учебника Босова, Босова 11 класс, Бином: 13. Напишите программу, позволяющую определить, входит ли заданная цифра в некоторое целое неотрицательное число. В данном задании удобно представить число как строку. Далее, определить, входит ли цифра (представленная в формате символа) в данную строку. Но, пока со строками не работали. Поэтому вариант такой: var x, z, n: integer; begin writeln('Введи число'); read(x); writeln('Введи цифру'); read(z); n := 0; while x > 0 do begin if x mod 10 = z then n := n + 1; x := x div 10 end; if n > 0 then write('входит') else write('не входит') end. Программа: Z_7_13.pas (ссылка ниже)
