Параметр цикла for должен описываться в заголовке цикла
var max,k,i:integer;
s:string;
begin
assign(input, 'zad_24.txt');
readln (s);
i:=1;
max:=1;
for 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(i);
end.
Что здесь не так?
275
413
Ответы на вопрос:
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
1 мыть руки перед использование пк
2 не трогать пыльную часть компьютера
3 не лизать клавиатуру
Популярно: Информатика
-
tolkynd1714.12.2022 17:43
-
Навруза12.12.2022 20:09
-
Petersen08.07.2020 23:08
-
5Юра111111116.07.2022 12:13
-
123Лёшка32109.07.2021 22:48
-
polinaserdiuk404.06.2023 08:56
-
Alina2905200608.11.2021 19:59
-
T1shka13613.05.2021 23:24
-
Сашечка1112.06.2023 02:04
-
nasty220428.07.2021 01:02