Pascal abc.
Определить позицию буквы в строке.

Без проверки того, есть ли символ в строке: Var   S:string;   C:char;   i:integer;BeginWrite('Введите строку: ');ReadLn(S);Write('Введите символ: ');ReadLn(C);Write('Символ "',C,'" встречается на позициях:');For i:= 1 to Length(S) do    if S[i] = C then Write(' ',i)End.Пример работы программы:Введите строку: 12345789654621685798546323312125Введите символ: 5Символ "5" встречается на позициях: 5 10 17 21 32С проверкой:Var   S:string;   C:char;   i:integer;BeginWrite('Введите строку: ');ReadLn(S);Write('Введите символ: ');ReadLn(C);i:=1;While (S[i] <> C)and(i<Length(S)) do   i:=i+1;if S[i] = C then   Begin   Write('Символ "',C,'" встречается на позициях:');   For i:= i to Length(S) do       if S[i] = C then Write(' ',i)   Endelse   WriteLn('Данный символ в строке не встречается')End.Пример работы программы:Введите строку: 12312123Введите символ: 4Данный символ в строке не встречается