Выделить все слова, которые начинаются на букву ‘м’

@87781891293 · Регистрация: 28.02.2013

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

6. Дан текст. Выделить из него все слова, которые начинаются на букву ‘м’.

@Puporev · 07.03.2013, 11:08

Pascal

uses crt;
var s,s1:string;
    n,i,j,k:byte;
begin
writeln('Введите текст из русских слов, разделенных пробелами,');
writeln(' в том числе начинающихся на букву м');
read(s);
n:=length(s);
writeln('Слова на букву м');
k:=0;
for i:=1 to n do
if (s[i]='м')and((i=1)or(s[i-1]=' '))then
 begin
  k:=1;
  s1:='';
  j:=i;
  while(j<=n)and(s[j]<>' ') do
   begin
    s1:=s1+s[j];
    j:=j+1;
   end;
  writeln(s1);
 end;
if k=0 then write('Слов на букву м нет')
end.

@87781891293 0 / 0 / 0 Регистрация: 28.02.2013 Сообщений: 40
		1
	Выделить все слова, которые начинаются на букву ‘м’ 07.03.2013, 09:42. Показов 2403. Ответов 1 Метки нет (Все метки) 6. Дан текст. Выделить из него все слова, которые начинаются на букву ‘м’. 0

	07.03.2013, 11:08

Опции темы

Выделить все слова, которые начинаются на букву ‘м’

Решение