Найти все глухие согласные, встречающиеся в тексте, входящие НЕ БОЛЕЕ чем в два слова

@Aiklence · Регистрация: 04.11.2013

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

Дана строка(string): Мада,защалаф,тамутарт. (Пунктуацию соблюсти)
Найти: Все глухие согласные, встречающиеся в тексте, входящие НЕ БОЛЕЕ чем в два слова.

Для решения задачи использовать множества. (Set of ...)
Для разделения строки на массив слов использовать:

Pascal

type mas=array[1..200] of string;
var s,s1:string;
    i,j:integer;
    m:mas;
begin
writeln('Введите текст: ');
readln(s);
s:=s+','; i:=1; j:=1;
while (i<=length(s)) do
begin
s1:='';
while (s[i]<>',') do
begin
s1:=s1+s[i]; i:=i+1;
end;
m[j]:=s1; j:=j+1; i:=i+1;
end;
end.

@Aiklence · 12.02.2014, 15:21 **[ТС]**

Помогите

@Aiklence 1 / 1 / 0 Регистрация: 04.11.2013 Сообщений: 36
	12.02.2014, 15:21 [ТС]	2
	Помогите 0