Ввести строчку символов, потом 1 знак и определить если этот символ

Ввести строчку знаков, потом 1 символ и определить если этот знак в строке, если есть то вывести номер позиции где он встречается 1-ый раз.
ПАСКАЛЬ, ОЧЕНЬ Безотлагательно

Задать свой вопрос
Регина Залужская
https://znanija.com/task/28406808
Jurij Nikatov
решили теснее
1 ответ
Var
  s,symb:string;
  l:longint;
begin
  readln(s);
  readln(symb);
  l:=pos(symb,s);
  if l = 0 then
    writeln('There are not any symbols like this')
  else
    writeln(l);
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт