Помогите пж!! Инфа 10 кл     Заданастрока символов и отдельный символ. Определить

Помогите пж!! Инфа 10 кл


Задана
строка символов и отдельный знак. Определить на каком месте в строке в первый раз
встречается такой символ.



Задать свой вопрос
1 ответ
Var
a,b:string;
begin
write('Введите строчку: ');
readln(a);
write('Введите знак: ');
readln(b);
if pos(b,a)=0 then writeln('Символа ',b,' в строке нет') else writeln('Символ ',b, ' находится на ', pos(b,a), ' месте');
end.

Илюшка Зазинов
Огромное-преогромное спасибо!!!
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт