В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Bячеслав
Bячеслав
14.08.2022 19:03 •  Информатика

Параметр цикла 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.
Что здесь не так?

Показать ответ
Ответ:
Soos11111
Soos11111
26.12.2020 22:59

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

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота