Program Matr22;
Uses Crt;
type matrix=array[1..5,1..5] of integer;
var m:matrix;
n:byte;
procedure Auto;
var i,j:integer;
begin
n:=0;
randomize;
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
m[i,j]:=random(50)+5;
if (m[i,j]=22) then n:=n+1;
end;
end;
end;
procedure PrintMatrix(mas:matrix;);
var j,k:integer;
begin
for k:=1 to 5 do
begin
for j:=1 to 5 do
begin
write(mas[k,j]:3);
end;
writeln;
end;
end;
begin
clrscr;
Auto;
PrintMatrix(m);
writeln;
writeln('Количество элементов равных 22:',n);
readkey;
end.
тверждения "Аня, Вика и Сергей" пойдут в кино обозначим каждое как A,B,C
1 A-> B&C
2 A≡C
3 C->B
Эти утверждения можно представить в конъюнктивной форме
1) -A ∨ B&C
2) A&C ∨ -A&-C
3) -C∨B
Нужно найти ситуацию, при которых верны ровно 2 из этих утверждений.
Если верные 1) и 2), этому удовлетворяют ситуации "пойдут все" или "никто не пойдет" или "пойдет Вика"
Во всех этих ситуация 3) тоже верно.
Если верны 2) и 3), этому соответствуют те же ситуации.
0 0 0
0 1 0
1 1 1
Если верны 1) и 3), то при ситуации "пойдут сергей и Вика", 2) неверно. 1) условие не означает, что если пойдут Вика и Сергей, Аня тоже непременно пойдет.
ПОДХОДИТ?
то правильный ответ следующий: Аня и Сергей не пойдут в кино, а пойдет Вика.
