Question

Ребят помогите, проблема в программе, она всё время выдаёт одну и ту же ошибку, как её исправить?
PascalABC

5336fe895f53659fdcf4cc00f25518b3.pas

Answer 1

не s1[0] а 1 -- s1[1], тут нелзя с 0

Answer 2

вот так?

Answer 3

ну да
var n, k, i, j: integer;
    s1: string;
begin
  {assign(input, 'input.txt'); 
  reset(input);
  assign(output, 'OUTPUT.TXT'); 
  rewrite(output);}
  readln(n);
  setlength(s1, 1000);
  k := 0;
  for i := 0 to n do
  begin
    readln(s1);
    for j := 0 to 998 do
    begin
      if (s1[1] = 'A') and (s1[j + 1] = 'A') then
        inc(k);
    end;
  end;
  write(k);
end.  

Answer 4

там надо вводить это 3
S->Sabc
S->A
A->AA

Answer 5

а получится цифра 2

Answer 6

3
S->Sabc
S->A
A->AA