1. С клавиатуры вводят слово и символ. Составьте программу, которая определяет позицию данного символа.

Var c: Char;

s: String;

i, k, p: Integer;

Begin

ReadLn (c) ; {Чтение заданного символа}

ReadLn (s) ; {Чтение заданного слова}

p: = Pos (c, s) ; {Определяем позицию символа}

If (p=0) Then {Функция вернёт 0, если символ не будет найден}

WriteLn ('Такого символа в слове нет.')

Else {Если символ есть, то ... }

Begin

WriteLn ('Указанный символ расположен на позиции: ', p) ;

k: = 0; {k хранит количество вхождений}

p: = Length (s) ; {p хранит длину строки (слова) }

For i:=1 To p Do {Пробегаем по всем символам слова}

If (s[i]=c) Then inc (k) ; {Если символ совпадает, увеличиваем на 1 переменную k}

WriteLn ('Количество вхождений данного символа: ', k) ;

End;

End.