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

Ниже вариант решения задания из учебника Босова, Босова 11 класс, Бином:

13. Напишите программу, позволяющую определить, входит ли заданная цифра в некоторое целое неотрицательное число.

В данном задании удобно представить число как строку. Далее, определить, входит ли цифра (представленная в формате символа) в данную строку.

Но, пока со строками не работали. Поэтому вариант такой:

var

x, z, n: integer;

begin

writeln(taskВведи числоtask);

read(x);

writeln(taskВведи цифруtask);

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(taskвходитtask) else write(taskне входитtask)

end.

Программа: Z_7_13.pas (ссылка ниже)