4GA 92 % 15:46 е
20201030 1...
Текст 2. Прочитайте текст и выполните задания.
Она возникла перед взглядом Алексея как-то вечером, в час бешеного приступа его болі. Это
уж потом узнал Пряхин, что работает тетя Груня не санітаркой, не медсестрої, а вахтершей. Сидит
при входе, а после смены обходит палаты госпиталя, чтобы кому водички подать, кому подоткнуть
одеяльце, хотя никто ее об этом не просил. Только разве надо прость, когда война, когда люди
нуждаются в состраданти больше, чем в хлебе? ІІ неграмотная старуха бродила вечерамп между коeк.
взбивала подушки и приговаривала какие-то словечки, то літ сказку какую волшебную рассказывала.
После дежурства усаживалась тетя Груня на табурет возле Алексея, смачивала уголком
полотенца его губы и подносіла водгчки. Все время гладила она его холодную, неживую руку и
приговаривала, не жалех слов, мягких, как хорошая повязка из марли.
Добилась-таки своего. Рука порозовела, стала теплой, и однажды Пряхін посмотрел на тетю
Груню и заплакал. 1 она заплакала тоже. Знала тетя Груня, что теперь выживет этот солдат, потому
что боль свою побед.
1. Какой заголовок отражает Ідею текста?
A) Солдат Алексей Пряхин.
В) Военный госпиталь.
C) Сила доброты.
D) Алексей и Тетя Груня.
2. К какому стилю речіг относится текст?
А) разговорный
В) художественный
С) публіцистический
D) научный
ответьте на вопросы:
3.Как Вы думаете, что Алексею выжить? Приведите 2 аргумента.
4. Какие слова словосочетания использует автор для выражения заботливого отношения теті Грунт к
Алексею? Выпипете 2 слова словосочетания,
5. Замените выделенные словосочетания согласованными определениями.
палаты Гостталя-
повязка о март-
Письмо
Задание
Нашите текст-повествование или текст-описаниев художественном стиле объемом 80 - 100 слов на
одну з предложенных тем.
1. Мой домашней питомец.
2. Как я маме.
Соблюдайте правописание безударных глагольных окончаний.
П
о​

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.

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

Первое уравнение системы – это несколько условий, соединённых конъюнкциями. Чтобы такая последовательность условий была истинной, каждое условие должно быть истинным. Заметим, что если какой-то икс оказался равен 1, то все последующие иксы тоже должны быть равны нулю, так как 1 -> 0 = 0.

Остальные уравнения имеют одинаковый вид (a ∨ b ∨ ~c) ∧ (a ∨ ~b ∨ c) ∧ (~a ∨ b ∨ c) = 1. Вновь каждая скобка должна быть истинной. Прикинем, когда так будет.

Пусть a = 1. При этом первые две скобки автоматически истинны, а третья превращается в b ∨ c, что будет истинно, если хотя бы одна из переменных b, c истинна. В этом случае есть 3 комбинации (b, c), при которых уравнение выполняется (все, кроме 0, 0).

Если a = 0, то истинна третья скобка, первые две превращаются в (b ∨ ~c) ∧ (~b ∨ c). В таком выражении можно разглядеть (c -> b) ∧ (b -> c), т.е. эквиваленцию b ↔ c. Она верна, только если операнды одинаковы, тогда есть две комбинации (b, c), при которых уравнение выполняется: (0, 0) и (1, 1).

Собираем вместе: решение первого уравнения – первые k иксов равны 0, оставшиеся 7 - k иксов равны 1. Все оставшиеся уравнения зависимы только через иксы, если соответствующий икс равен 0, то такое уравнение имеет 2 решения, иначе 3 решения. По правилу произведения система при фиксированном k имеет 2^k * 3^(7 - k) = 3^7 * (2/3)^k решений.

Чтобы найти общее количество решений, нужно просуммировать при k от 0 до 7. В этом сумма геометрической прогрессии:

3^7 * ((2/3)^0 + (2/3)^1 + ... + (2/3)^7) = 3^7 * (1 - (2/3)^8)/(1 - 2/3) = 3^8 - 2^8 = 6305.