Определите, какие катера прибыли в порт, если следующие два высказывания истины: 1. неверно, что если катер x прибыл в порт, то катер y - нет. 2. в порт прибыл катер z или катер y, но не оба вместе. ,
Var a: array [1 .. 10] of integer; i, Count, C, tmpLast, tmpFirst: integer; begin write('Введите число C: '); readln(C); writeln; for i := 1 to 10 do begin write('a[', i, '] = '); readln(a[i]); if a[i] = C then begin Count := Count + 1; tmpLast := i; end; end; writeln; if (Count = 0) then writeln('В массиве нет числа равное С') else begin writeln('В массиве нашлось число, равное С'); if (Count = 1) then writeln('Первое и единственное число в позиции a[', tmpLast, ']') else begin i := 0; repeat i := i + 1; tmpFirst := i; until (a[i] = C); writeln('Первое такое число a[', tmpFirst, ']'); writeln('Последнее такое число a[', tmpLast, ']'); end; end; readln; end.
X и y
Объяснение:
В первом мы видим, что катер x прибыл, то и катер y тоже прибыл. Но во втором случае z и y не могут придти вместе, следовательно прибыли катера x и y