С , 34. В текстовом файле k7c-2.txt находится цепочка из символов
латинского алфавита A, B, C, D, E, F. Найдите количество цепочек
длины 3, удовлетворяющих следующим условиям:
 1-й символ – один из A, C, E;
 2-й символ – один из A, D, F, который не совпадает с
первым;
 3-й символ – один из A, B, F, который не совпадает со
вторым.

ответ:1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

var

 f: text;

 i, k, max: integer;

 s: string;

begin

 assign(f, 'D:\24.txt');

 reset(f);

 readln(f, s);

 max := 1;

 k := 1; // кол-во подряд идущих

 for i := 2 to length(s) do

 begin

   if s[i] <> s[i - 1] then

   begin

     inc(k);

     if k > max then max := k;

   end

   else k := 1;

 end;

 write(max)

end.

Объяснение: