Question

даю 30 баллов. за решение хоть одной задачи с этого фото.

Answer 1

Где текст к заданию?

Answer 2

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