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

§ 7. Запись алгоритмов на языках программирования ГДЗ по Информатике 11 класс. Босова.

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

Ответ

var NumeralS, NumberS: string;

var Numeral, Number: integer;

var i, k : integer;

Begin

 readln(Numeral, Number);

 NumberS := inttostr(Number);

 NumeralS := inttostr(Numeral);

 for i:=1 to length(NumberS) do

   if NumberS[i] = NumeralS then

     inc(k);

 if k>0 then

  writeln(True)

 else

   writeln(False);

end.