var
z,a,i:integer;
begin
writeln('vvedite chislo');
readln(z);
writeln('vvedite zifru');
readln(a);
for i:=1 to length(IntToStr(z)) do begin
if z mod 10 = a then
writeln('est');
z:=z div 10;
end;
end.
var
a, c:integer;
begin
write('Введите число '); readln(c);
write('a = '); readln(a);
write('в числе ', c );
while c <> 0 do
begin
if c mod 10 = a then
begin
writeln(' есть цифра ', a);
Exit;
end;
c := c div 10;
end;
writeln(' нет цифры ', a);
end.
