Question

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

Answer 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.