Question

Ввести строку символов затем один символ,определить есть ли символ в строке,если есть,то ввести номер позиции,где он встречается первый раз я тут начал делать,но дальше не знаю как допишите как надо: program p1; var s: string; n: chr; i,j: integer; begin writeln readln (s): for s[j]=1 to lenght (s) do if s[j]=n then

Answer 1

PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString('Введите строку:');
  var c:=ReadlnChar('Введите искомый символ:');
  var p:=s.IndexOf(c);
  if p>=0 then Writeln('Первое вхождение в позиции ',p+1)
  else Writeln('Символ в строке не найден')
end.

Примеры
Введите строку: Информатика
Введите искомый символ: а
Первое вхождение в позиции 7

Введите строку: лентяй
Введите искомый символ: и
Символ в строке не найден

Answer 2

Лучше использовать Pos(что ты ищешь,строка в которой ищешь)

var a,b:String;
var i:Integer;
begin
Read(a,b);
i:=Pos(b,a);
if i = 0 then
WriteLn('Не найден.')
else
WriteLn(i);
end.