Задание 13 Параграф 7 ГДЗ Босова 11 класс (Информатика)

Задача

В данном задании удобно представить число как строку. Далее, определить, входит ли цифра (представленная в формате символа) в данную строку.
Но, пока со строками не работали. Поэтому вариант такой:
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 (ссылка ниже)

Подробный ответ

Чтобы определить, входит ли заданная цифра в число, будем последовательно выделять последнюю цифру числа с помощью операции $$x \bmod 10$$ и сравнивать её с искомой цифрой.

Если цифры совпали, увеличиваем счётчик. Затем отбрасываем последнюю цифру числа операцией $$x \div 10$$ и продолжаем, пока число не станет равным нулю.

Если после просмотра всех цифр счётчик больше нуля, значит, цифра входит в число, иначе — не входит.

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.