Приведём решение данной задачи на языке Pascal.

Решение.

Для решения данной задачи будем посимвольно считывать текстовый файл. Объявим переменные: s — строка для работы с символами из файла, maxCount — максимальная длина последовательности, count — временное хранение длины последовательности, i — переменная для перебора всех символов. Алгоритм будет сравнивать значения на трех позициях, если символы будут удовлетворять нужным условиям, то значение счетчика будет увеличиваться на 1.

Приведём решение данной задачи на языке Pascal.

begin

var s: string;

var i, count, maxCount: integer;

assign(input, '24.txt');

readln(s);

count:=0;

maxCount:=0;

for i:=1 to Length(s) do

if ((s[i]='X') and (count mod 3=0)) or

((s[i]='Y') and (count mod 3=1)) or

((s[i]='Z') and (count mod 3=2)) then begin

count := count+1;

if count > maxCount then

maxCount := count;

end

else if s[i]='X' then count:=1

else count := 0;

writeln(maxCount);

end.

В результате работы данного алгоритма при вводе данных из файла в условии получаем ответ — 13.

Ответ: 13.

⇐ Предыдущая 1 23