Данное уравнение можно разбить на три строки (на фото красным цветом)
1) первая скобка(то есть содержимое до знака логического сложения V) и вторая скобка истинны
2) первая скобка истинна, вторая ложна
3) первая-ложь, вторая истинна
Далее составляем таблицу для четырех переменных (2^4=16 строк)
Выбираем в столбцах со стрелками ИСТИНА-ИСТИНА (то есть 1 - 1) Делаем вывод для первой строки нет решений
Для второй строки (1-0) получаем два решения Отмечены знаком "плюс"
Для третьей строки (0-1) также два решения Итого 4 решения
Program asd;
Var A,B:array [1..250,1..250] of integer;
i,j,n,m,k: integer;
BEGIN
Write('Введите n: '); Readln(n);
Write('Введите m: '); Readln(m);
for i:= 1 to n do
begin
for j:= 1 to m do
begin
A[i,j]:=random(10);
write(A[i,j]:3);
end;
writeln;
end;
writeln;
for i:= 1 to n do
for j:= 1 to m do
begin
If A[i,j] mod 2=1 then inc(k);
end;
If n=m then
begin
Writeln('Транспонирование: ');
for i:=1 to n do
begin
for j:=1 to m do
begin
write(A[j,i]:3);
B[i,j]:=A[i,j];
end;
writeln;
end; writeln;
end
else
Writeln('Кол-во нечетных элементов: ',k);
<span>END.</span>
1.СТАНИСЛАВ:
( Истина→Истина)∧Ложь ⇒Истина∧Ложь ⇒ Ложь
2. ЕГОР:
(Ложь→Истина)∧Ложь ⇒ Истина∧Ложь ⇒ Ложь
3. АЛЕНА:
(Ложь→Истина)∧Истина ⇒ Истина∧Истина ⇒ Истина
4. ТАТЬЯНА:
(Истина→Ложь)∧Истина ⇒ Ложь∧Истина ⇒ Ложь
Ответ: 3.АЛЕНА
Program df;
uses crt;
var a,b,c,max,sum:integer;
begin
sum:=0;
max:=0;
writeln('введите числа а,b,c');
readln(a,b,c);
if (a>0)or(b>0)or(c>0) then sum:=a+b+c else if (a>b)and(a>c) then max:=a else if (b>c) then max:=b else max:=c;
if sum=0 then wrteln('Числа отрицательные большее из них ',max) else writeln('сумма чисел ',sum); end.