Когда алла, катя и люда спросили, какие отметки они получили за контрольную работу, то учитель сказал: «попробуйте догадаться сами, а я вам скажу, что в классе двоек нет и у вас троих три разные отметки, причём у аллы - не «3», у люды - не «3» и не «5». напиши, какую отметку получила каждая из трёх учениц?

Катя - 3. алла - 5, люда - 4?

Type       piece = record               value: string[10];               count : = 1;       end; var       pieces: array[1..200]of piece;       i, j, n, pieces_n: integer;       s, p: string;       found: boolean;       imax: =1; begin       read(s);       read(n);       for i : = 1 to length(s) - n + 1 do       begin               p : = copy(s, i, n);               found : = false;               for j : = 1 to pieces_n do                       if pieces[j].value = p then begin                               pieces[j].count : = pieces[j].count + 1;                               found : = true;                               if pieces[imax].count < pieces[j].count then                                       imax : = j;                               break;                       end;               if not found then begin                       pieces_n : = pieces_n + 1;                       pieces[pieces_n].value : = p;               end;       end;             writeln(pieces[imax].value); end.

1vars: string; i: integer; beginreadln(s); for i: =2 to length(s)-2 do  if (s[i-1]+s[i]+s[i+1]+s[i+2]=' не ') then s[i+1]: ='и'  else if ((s[i-1]+s[i]+s[i+1]='не ') and (i=2)) then s[i]: ='и'    else if ((s[i]+s[i+1]+s[i+2]=' не') and (i=length(s)-2)) then s[i+2]: ='и'; write(s); end. 2vars: string; i, k: integer; beginreadln(s); for i: =2 to length(s)-1 do  if s[i-1]+s[i]+s[i+1]=' в ' then inc(k)  else if ((s[i-1]+s[i]='в ') or (s[i-1]+s[i]='в ')) and (i=2) then inc(k); write(k); end.если есть вопросы, пишите в лс : )