Найти, сколько слов в тексте заканчивается двойной согласной

@VitaliKS · Регистрация: 19.11.2012

Помогите пожалуйста
Найти, сколько слов в тексте заканчивается двойной согласной.

@КонецСвета · 19.11.2012, 13:14

Pascal

uses crt;
const z=[' ','.',',','-','!','?',';',':',')','"'];
      a=['А'..'Я','а'..'я'];
      g=['У','Ё','Е','Ы','А','О','Э','Я','И','Ю',
        'у','ё','е','ы','а','о','э','я','и','ю'];
      sg=a-g;
var s: string;
    i,k: byte;
begin
write('s='); readln(s);
s:=s+' ';
for i:=3 to length(s) do
    if (s[i] in z) and not (s[i-1] in z) and not (s[i-2] in z) and
       (s[i-1]=s[i-2]) and (s[i-1] in sg) then inc(k);
writeln(k);
end.

@VitaliKS 0 / 0 / 0 Регистрация: 19.11.2012 Сообщений: 4
		1
	Найти, сколько слов в тексте заканчивается двойной согласной 19.11.2012, 01:02. Показов 1272. Ответов 1 Метки нет (Все метки) Помогите пожалуйста Найти, сколько слов в тексте заканчивается двойной согласной. 0

Опции темы

Найти, сколько слов в тексте заканчивается двойной согласной

Решение