Question

Параметр цикла for должен описываться в заголовке цикла. СРОЧНО! Program zzz; 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. Что здесь не так?

Answer 1

Ответ:

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

Answer 2

В вашем коде есть несколько ошибок. Вот исправленный код:

pascalCopy code
Program zzz;
var max, k, i: integer;
    s: string;
begin
  assign(input, 'zad_24.txt');
  reset(input);
  readln(s);
  close(input);
  
  i := 1;
  max := 1;
  k := 1; // Инициализируем k
  
  for i := 2 to length(s) do
  begin
    if (s[i] = s[i-1]) and (s[i] = 'C') then
    begin
      k := k + 1;
      if k > max then
        max := k;
    end
    else
      k := 1; // Сбрасываем k, если символы не равны 'C'
  end;
  
  writeln(max);
end.

Изменения:

1. Добавлена инициализация переменной k перед использованием в цикле.
2. Изменена инициализация max на 1 перед началом цикла.
3. Добавлено открытие и закрытие файла 'zad_24.txt' для чтения строки s.
4. Исправлена ошибка в выводе результата - теперь выводится max вместо i.