//Язык. Паскаля. Язык Паскаля, Карл!
//Pascal ABC.NET v3.1 сборка 1172
Var
a,b,c:integer;
d:boolean;
begin
d:=false;
readln(a);
readln(b);
repeat
c:=a mod 10;
a:=a div 10;
if c=b then d:=true;
until (c=b) or (a=0);
if d=true then writeln('Есть') else writeln('Нет');
end.
<span>Пример ввода:
34457
8
Пример вывода:
Нет
</span>
Var n,k,i:integer;
begin
write('n = ');
readln(n);
k:=0;
for i:=1 to 6 do
begin
if n mod 2 = 1 then begin k:=i; break; end;
n:=n div 10;
end;
if k=0
then writeln('В числе нет нечётных цифр')
else writeln('k = ',k);
end.
Пример:
n = 123456
k = 2