Подсчитать количество символов, следующих за первой буквой М и напечатать эти символы.

@Данйл · Регистрация: 19.12.2016

Author24 — интернет-сервис помощи студентам

дан текст за которым следует точка. Подсчитать количество символов, следующих за первой буквой М и напечатать эти символы.

@JuriiMW · 20.12.2016, 06:22

Pascal

begin
  var s := ReadLnString('Введите текст:');
  var p := s.IndexOf('М');
  if p < 0 then WriteLn('В тексте нет символов "М".')
  else WriteLn('За первой буквой "М" в строке символов ', s.Length - succ(p),
    NewLine, S.Remove(0, succ(p)));
end.

@Данйл 0 / 0 / 0 Регистрация: 19.12.2016 Сообщений: 12
		1
	Подсчитать количество символов, следующих за первой буквой М и напечатать эти символы. 19.12.2016, 18:32. Показов 1204. Ответов 1 Метки нет (Все метки) дан текст за которым следует точка. Подсчитать количество символов, следующих за первой буквой М и напечатать эти символы. 0

	20.12.2016, 06:22

Подсчитать количество символов, следующих за первой буквой М и напечатать эти символы.

Решение