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

Формулировка задачи:

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

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

textual
var s: string;
    p: integer;
begin
  writeln('Введите строку:');
  readln(s);
  p := pos('M', s);
  if p = 0
    then write('В строке нет буквы "M"')
    else if p = length(s)
      then write('Буква "M" - последняя в строке')
      else begin
        writeln('Количество символов, следующих за "M": ', length(s) - p);
        writeln('Символы, следующие за "M":');
        writeln(copy(s, p + 1, length(s)))
      end;
  readln
end.

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

5   голосов, оценка 4.200 из 5


СОХРАНИТЬ ССЫЛКУ