Предмет: Информатика, автор: bo0000

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

Приложения:

Ответы

Автор ответа: krtreg228
0

Ответ:

var

 NumeralS, NumberS : string;

 Numeral, Number : integer;

 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.

Похожие вопросы
Предмет: Математика, автор: helpme8946
Предмет: Химия, автор: 7080XY4i
Предмет: Математика, автор: вика11122004
Предмет: Математика, автор: Ekatekati