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

1) Тип обрабатываемой информации: числовая, Правило преобразования: первая буква числа, ?=»о» (одиннадцать)

2) Тип обрабатываемой информации: числовая, Правило преобразования: первая буква числа, обозначающего количество цифр в записи исходного числа, «ч»

3)Тип обрабатываемой информации: текстовая, Правило преобразования: определяет часть речи (первая буква), ?=»с» (река- существительное)

4) Тип обрабатываемой информации: текстовая, Правило преобразования: определяет род слова, ?=»с»(шоссе — средний род)

5) Тип обрабатываемой информации: текстовая, Правило преобразования: количество букв в слове, ?=5 (вечер, 5 букв)

6) Тип обрабатываемой информации: числовая, Правило преобразования: четность/нечетность числа, ?=»ч»(48, четное)

7) Тип обрабатываемой информации: текстовая, Правило преобразования: определяет «вид» животного, ?=»р» (сом — рыба)

8) Тип обрабатываемой информации: текстовая, Правило преобразования: печатает третью букву в слове, ?=»о» (стол)

Uses crt;

const
    n = 5;
    m = 10; {кол-во столбцов}
    l = 10; {максимальная длина одной строки/слова}
    {letters = '';}
    file_path = 'data.txt';

type
    SmallString = string[l];
    WordsMas = array[1..n, 1..m] of SmallString;

var
    words: WordsMas;
    i, j, k: integer;

function RandomWord(n: integer): SmallString;
var
    i: integer;
    s: SmallString;
    letters: string;
begin
    letters := '';
    s := '';
    for i := 1 to n do 
        s := s + letters[Random(length(letters) - 1) + 1];
    RandomWord := s;
end;

function Replace(s, find_text, replace_text: SmallString): SmallString;
var
    i: integer;
begin
    repeat
        i := pos(find_text, s);
        if i <> 0 then begin
            delete(s, i, length(find_text));
            insert(replace_text, s, i);
        end;
    until i = 0;
    
    Replace := s;
end;

function Invert(s: SmallString): SmallString;
var
    i: integer;
    t: SmallString;
begin
    t := '';
    for i := 1 to length(s) do
        t := s[i] + t;
    
    Invert := t;
end;

function SwapCase(s: SmallString): SmallString;
var
    i: integer;
begin
    for i := 1 to length(s) do
        if s[i] = upcase(s[i]) then
            s[i] := chr(ord(s[i]) + 32)
        else s[i] := upcase(s[i]);
    
    SwapCase := s;
end;

procedure PrintMas(mas: WordsMas; name: string);
var
    i, j: integer;
    f: text;
begin
    writeln(name);
    for i := 1 to n do
    begin
        
        write(i, ': ');
        for j := 1 to m do
            write(mas[i, j]:l, '; ');
        writeln;
    end;
    
    Assign(f, file_path);
    Append(f);
    
    writeln(f, name);
    for i := 1 to n do
    begin
        
        write(f, i, ': ');
        for j := 1 to m do
            write(f, mas[i, j]:l, '; ');
        writeln(f);
    end;
    
    Close(f);
end;

begin
    Randomize;
    ClrScr;
    
    for i := 1 to n do
        for j := 1 to m do
            words[i, j] := RandomWord(Random(l - 5) + 5);
            {words[i, j] := 'GoodXXMMNN';}
    
    PrintMas(words, 'Original');
    
    for i := 1 to n do
        for j := 1 to m do
            case i of
                1: words[i, j] := Replace(words[i, j], 'N', 'X');
                2: words[i, j] := Replace(words[i, j], 'X', 'M');
                3: words[i, j] := Invert(words[i, j]);
                4: words[i, j] := SwapCase(words[i, j]);
            end;
    
    PrintMas(words, 'New One');
    
    Readln;
end.

Проверялось. Работает на Турбо паскале