1) С клавиатуры вводят слово и символ. Составьте программу, которая: а) определяет позицию заданного символа б) подсчитывает количество вхождений заданного символа.

Program Zadacha;
Var s: String;
c: Char;
i, pos, count:
Integer;
Begin
WriteLn(Введите слово:);
ReadLn(s);
WriteLn(Введите символ:);
ReadLn(c);
pos := 0;
count := 0;
For i := 1 To Length(s) Do
If s[i] = c Then
Begin
count := count + 1;
If pos = 0 Then
pos := i;
End;
WriteLn(Позиция символа в строке: , pos);
WriteLn(Количество вхождений символа в строку: , count);
ReadLn;
End.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.