5. кинотеатр
в первом ряду кинотеатра n + 2 мест, крайние места заняты персоналом кинотеатра,
но у мест посередине свободно. к кольников входят в зрительный зал по очереди, и,
конечно же, каждый школьник достаёт спиннер и начинает его крутить до начала сеанса.
поэтому каждый школьник выбирает себе место как можно дальше от уже занятых мест.
а именно, школьник находит самый большой свободный участок в ряду (любой, если таких
несколько) и садится посередине него. если число свободных мест на этом участке было
нечётно, то школьник садится точно посередине участка, тогда слева исправа от него
остаётся поровну свободных мест. если же это число чётно, то школьник выбирает одно из
двух свободных мест посередине, тогда с одной стороны от школьника будет на одно
свободное место больше, чем с другой стороны.
по данным числам n и к определите, сколько мест осталось свободными с двух
сторон от школьника, который занял место последним (k-м по счёту).
программа получает на вход два целых числа n и к, 1вывести два целых числа в порядке неубывания – количество свободных мест с двух сторон
от школьника, который последним занял место в ряду.
По закону дистрибутивности раскроем скобки
(Av¬A)&(AvB)
Av¬A = 1, значит остаётся AvB
2) F =A&(¬AvB)
По тому же закону раскрываем скобки
(A&¬A)v(A&B)
A&¬A = 0, значит остаётся A&B
3. (AvB)&(¬BvA)&(¬CvB)
По закону склеивания (AvB)&(¬BvA) = A , получается, что выражение принимает вид
A&(¬CvB)
Можно раскрыть скобки, получим
A&¬C v A&B
4) F =(1v(AvB))v((AC)&1)
Скобка (1v(AvB)) = 1, так как 1 v ЧТОУГОДНО = 1
Получаем выражение
1v((AC)&1) = 1, так как 1 v ЧТОУГОДНО = 1
ответ 1
uses crt;
Var mas:array[1..1000, 1..1000] of integer;
N,M,i,j,k:integer;
Begin
Writeln('Введите размер матрицы N*M');
Write('N = ');
readln(N);
Write('M = ');
readln(M);
if (M>1000) or (N>1000) or (M<1) or (N<1)
then
Writeln('Ошибка, указанные значения выходят за пределы матрицы') else
Begin
Writeln('Введите элементы матрицы');
k:=0;
for i:=1 to N do
for j:=1 to M do
Begin
readln(mas[i,j]);
if (mas[i,j] mod 2 = 0) then k:=k+1;
end;
Writeln();
Writeln('Исходная матрица');
for i:=1 to N do
Begin
for j:=1 to M do
Begin
Write(mas[i,j], ' ')
end;
Writeln();
end;
Writeln();
Writeln('Количество четных элементов = ',k);
end;
readln;
end.