С , 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.
Объяснение: