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

Дано естественное число. Выяснить: если в этом числе цифра 8.

Задать свой вопрос
1 ответ
Pascal:
var a:integer;
s:string;
begin
readln(a);
s:=inttostr(a);
if pos('8',s)lt;gt;0 then writeln('Есть') else writeln('Нет');
end.
Вячеслав Твердый
Глубоко оправдываюсь, но к раскаянью, я не разумею что такое "pos" и как оно действует. Не могли бы вы, мне разъяснить?
Dashelov Artemka
Да, окончательно.pos(subs,s);Отдаёт позицию подстроки subs в строке s. Если не найдена, отдаёт 0.Другими словами, если в строке s нет числа либо буковкы subs pos вернёт 0, если есть- укажет номер этого знака в строке.
Stepan
Благодарю!
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт