Логики 5.30 обсуждая конструкцию нового трёхмоторного самолёта, трое конструкторов поочередно высказали следующие предположения: 1) при отказе второго двигателя надо приземляться, а при отказе третьего можно продолжать полёт; 2) при отказе первого двигателя лететь можно, или при отказе третьего двигателя лететь нельзя; 3) при отказе третьего двигателя лететь можно, но при отказе хотя бы одного из остальных надо садиться. лётные испытания подтвердили правоту каждого из конструкторов. определите, при отказе какого из двигателей нельзя продолжать полёт. напишите, , пример.

Потому что они не правильно считали где первый где второй где третий. второй в середине, поэтому нельзя лететь без него.

Завдання №2var i,j,k,shlth: integer;               letter: char;         name,minword,s1,x,x1: string;               f1,f2: text;               f: boolean;               arr: array [1..100] of string; label 1;   begin writeln('введіть імя файлу введення: '); readln(name); assign(f1,name); reset(f1); writeln('введіть імя файлу виводу: '); readln(name); assign(f2,name); rewrite(f2); writeln('введіть букву для пошуку: '); readln(letter); letter: =lowercase(letter);   j: =1;   while not eof(f1) do begin   readln(f1,x1);   x: =lowercase(x1);   i: =1;   while (i< =length(x)) and (x[i] < > letter) do     begin           while (i< =length(x)) and (x[i] = ' ') do inc(i);           if (i< =length(x)) and (x[i] < > letter) then               while (i< =length(x)) and (x[i] < > ' ') do inc(i);     end;       if i> length(x) then   begin     writeln(f2,x1);     arr[j]: =x1;       inc(j);       end; end;   f: =false; for k: =1 to j do begin     i: =1;     while (i< =length(arr[k])) and (arr[k][i] = ' ') and not f do inc(i);   if i< length(arr[k])+1 then begin f: =true; goto 1; end; end;   1: if not f then writeln('у файлі f2 немає слова, відповідного умові вибору') else begin   while (arr[k][i]< > ' ') and (i< =length(arr[k])) do    begin     minword: =minword+arr[k][i];     inc(i);     end;     for k: =1 to j do   begin       i: =1;       while i< =length(arr[k]) do       begin         while (i< =length(arr[k])) and (arr[k][i] = ' ') do inc(i);     if i< =length(arr[k]) then begin shlth: =1; s1: =arr[k][i]; end;     while (i< =length(arr[k])) and (arr[k][i] < > ' ') do begin s1: =s1+arr[k][i]; inc(i); inc(shlth);   end;     if shlth< length(minword) then minword: =s1;       end;   end; writeln('найкоротша слово у файлі f2: ',minword); end;         close(f1); close(f2); end.

всё делать не буду, потому что долго..

1:

условие

варианты:

1) +1

2) *2

63 и больше - победа

1 куча - 5 камней,   2 куча s камней [1,57]

решение:

1 номер:

63 - 5 = 58

а) s ∈ [29.57]

петя увеличивает большую кучу в два раза и побеждает

б) допустим, что петя сглупил и сходил 29+1=30, тогда в s куче 30 камней. ваня умножает эту кучу в два раза и в сумме получает 60+5=65 камней, и побеждает так.

2 номер:

здесь нужно рисовать либо дерево, либо таблицу.

s = 27

"первая картинка"

3 номер делается точно также как и второй, просто от 27 прибавляй по очереди (28,29,30) пока не выйдет что ваня побеждает либо с первого, либо со второго хода