PascalABC.NET 3.3
begin
var s:=ReadlnString('Текст:');
s:=s.Replace('ё','е');
Writeln(s);
if pos('ж',s)>0 then writeln('Номер первой буквы "ж: "',pos('ж',s))
else writeln('В тексте нет буквы "ж"');
writeln('Количество слов в предложении: ',s.Split.Length);
end.
Пример:
Текст: ёлка, жёлудь, жираф, плёнка
елка, желудь, жираф, пленка
Номер первой буквы "ж: "7
Количество слов в предложении: 4