Дано натуральное число. Узнать: если в этом числе цифра 8.

Question

Дано натуральное число. Узнать: если в этом числе цифра 8.

Answer 1

Pascal:
var a:integer;
s:string;
begin
readln(a);
s:=inttostr(a);
if pos('8',s)<>0 then writeln('Есть') else writeln('Нет');
end.

Comments

Глубоко извиняюсь, но к сожалению, я не понимаю что такое "pos" и как оно действует. Не могли бы вы, мне объяснить?

---

Да, конечно.
pos(subs,s);
Возвращает позицию подстроки subs в строке s. Если не найдена, возвращает 0.
Иными словами, если в строке s нет цифры или буквы subs pos вернёт 0, если есть- укажет номер этого символа в строке.

---

Благодарю!