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

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

Задать свой вопрос
2 ответа
PascalABC.NET 3.3

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

Пример:
Текст: ёлка, жёлудь, жираф, плёнка
елка, желудь, жираф, пленка
Номер первой буквы "ж: "7
Количество слов в предложении: 4
Артём
это одна задача?
Misha Karlikov
либо их здесь несколько)
Алина Коюдер
В одной программке изготовлены все 3 задачки.
Где текст к заданию?
Karcina Esenija
он без текстаэ
Максим Асафьев
ааа, вопрос это и есть текст
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт