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
Answers & Comments
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
Verified answer
Где текст к заданию?