1.Составные условия — это условия, состоящие из двух или более простых условий, соединенных с логических операций: and , or , not . Простые условия при этом заключаются в скобки.
2.Простое условие — это два выражения, связанные одним из знаков отношений: = (равно), (больше), = (больше либо равно), ... Составные условия — это условия, состоящие из двух или более простых условий, соединенных с логических операций: and, or, not.
3.Логические операции и таблицы истинности
Логическое умножение или конъюнкция: ...
Логическое сложение или дизъюнкция: ...
Логическое отрицание или инверсия: ...
Логическое следование или импликация: ...
Логическая равнозначность или эквивалентность:
4.Порядок выполнения логических операций в выражении (от наибольшего приоритета к наименьшему): инверсия, конъюнкция, дизъюнкция, импликация, эквивалентность.
5. Условный оператор.
Для проверки условия используются условный оператор.
1.Составные условия — это условия, состоящие из двух или более простых условий, соединенных с логических операций: and , or , not . Простые условия при этом заключаются в скобки.
2.Простое условие — это два выражения, связанные одним из знаков отношений: = (равно), (больше), = (больше либо равно), ... Составные условия — это условия, состоящие из двух или более простых условий, соединенных с логических операций: and, or, not.
3.Логические операции и таблицы истинности
Логическое умножение или конъюнкция: ...
Логическое сложение или дизъюнкция: ...
Логическое отрицание или инверсия: ...
Логическое следование или импликация: ...
Логическая равнозначность или эквивалентность:
4.Порядок выполнения логических операций в выражении (от наибольшего приоритета к наименьшему): инверсия, конъюнкция, дизъюнкция, импликация, эквивалентность.
5. Условный оператор.
Для проверки условия используются условный оператор.
6. ответ на фоте.
ответ:Program a10;
var a,b:Array [1..100,1..100] of integer;
k,i,n,j,s:integer;
Begin
read(n);
For i:=1 to n do
begin
For j:=1 to n do
begin
read(a[i,j]);
end;
end;
i:=0;j:=0;s:=0;k:=0;
while i<=n do
begin
i:=i+1;j:=j+1;
if(a[i,j]>0)then k:=k+1;
s:=s+a[i,j];
end;
writeln(k,' ',s);
end.
2)
Program a10;
var a,b:Array [1..100,1..100] of real;
k,i,n,m,j:integer;
s:real;
Begin
read(n,m);
For i:=1 to n do
begin
For j:=1 to m do
begin
read(a[i,j]);
end;
end;
k:=0;
for j:=1 to m do
begin
s:=0;
for i:=1 to n do
begin
s:=s+a[i,j];
end;
for i:=1 to n do
begin
if(a[i,j]>(s-a[i,j]))then k:=k+1;
end;
end;
writeln(k);
end.
Объяснение: