var
A, B, C, i: Integer;
begin
Write ('Введите значение A: ');
ReadLn (A);
Write ('Введите значение B: ');
ReadLn (B);
Write ('Введите значение C: ');
ReadLn (C);
i := 0;
if A mod 2 = 0 then
Inc (i);
if B mod 2 = 0 then
Inc (i);
if C mod 2 = 0 then
Inc (i);
Writeln ('Количество четных чисел = ' + IntToStr (i));
end;
<em>// PascalABC.NET 3.2, сборка 1341 от 20.11.2016</em>
begin
var s:=ReadlnString('->');
var a:=RegEx.Matches(s,'\s([бвгджзйклмнпрстфхцчшщ]+)\s',
RegexOptions.IgnoreCase);
foreach var w in a do Writeln(w.ToString.Trim);
end.
<em>// PascalABC.NET 3.2, сборка 1341 от 20.11.2016</em>
begin
ReadlnString('->').ToWords.Where(w->Pos(w[1],'0123456789')=0).Println
end.
В последовательности длиной 5 возможны следующие способы расположения буквы О (* - любая из букв К или Т):
ОО***
О*О***
О**О*
О***О
*ОО**
*О*О*
*О**О
**ОО*
**О*О
***ОО
Всего 10 способов. В каждом из низ существует 2^3 = 8 вариантов записи букв К и Т на трёх оставшихся позициях (ККК, ККТ, КТК, КТТ, ТКК, ТКТ, ТТК, ТТТ).
Таким образом, общее количество последовательностей = 10*8 = 80
GJKJGFTJNEDERFYK вот это должно тебе подойти:)