Pascal: var a:integer; s:string; begin readln(a); s:=inttostr(a); if pos('8',s)<>0 then writeln('Есть') else writeln('Нет'); end.
0 votes Thanks 1
2015AnEcHkA2015
Глубоко извиняюсь, но к сожалению, я не понимаю что такое "pos" и как оно действует. Не могли бы вы, мне объяснить?
Gleb1Kosyrev
Да, конечно. pos(subs,s); Возвращает позицию подстроки subs в строке s. Если не найдена, возвращает 0. Иными словами, если в строке s нет цифры или буквы subs pos вернёт 0, если есть- укажет номер этого символа в строке.
Answers & Comments
Verified answer
Pascal:var a:integer;
s:string;
begin
readln(a);
s:=inttostr(a);
if pos('8',s)<>0 then writeln('Есть') else writeln('Нет');
end.
pos(subs,s);
Возвращает позицию подстроки subs в строке s. Если не найдена, возвращает 0.
Иными словами, если в строке s нет цифры или буквы subs pos вернёт 0, если есть- укажет номер этого символа в строке.