Ответы на вопрос:
program zzz;
var
max, k, a: integer;
s: string;
begin
assign(input, 'zad_24.txt');
readln(s);
a := 1;
max := 1;
for var i := 2 to length(s) do
if (s[i] = s[i - 1]) and (s[i] = 'C') then
begin
k := k + 1;
if max > i then
max := i;
end
else
max := 1;
writeln(a);
end.
Объяснение:
Циклическую переменную i стоит использовать только в самом for, т. е. она выполняет функцию счетчика.
Я заменил переменную i вне цикла на переменную a.
Что касается ошибки "Параметр цикла for должен описываться в заголовке цикла" - for var i := 2 to length(s) do
Не нужно циклическую переменную указывать глобально в var
Популярно: Информатика
-
nikitakyznecov70314.02.2022 10:01
-
vikulyaKuzmina30.06.2020 07:32
-
smail55002.03.2022 17:08
-
jorik915.09.2021 06:41
-
pervushin75208.06.2023 00:10
-
pavelshilov200oxnuw115.05.2021 13:51
-
SSultanShaS31.08.2020 17:47
-
Главрыба28.05.2020 14:36
-
vasta555555516.01.2022 06:02
-
Nastyaprokopova200328.10.2020 05:38