Предмет: Информатика,
автор: bo0000
13)Напишите программу позволяющую определить входит ли заданная цифра в некоторое целое неотрицательное число
Приложения:
Ответы
Автор ответа:
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
Предмет: Информатика,
автор: alexa22022009
Предмет: Химия,
автор: 7080XY4i
Предмет: Математика,
автор: вика11122004
Предмет: Математика,
автор: Ekatekati