Нужна Задания для тренировки:
Таблицы. (Построить.)
A & B ∨ A ̅ & B
A∨В ̅ &С
А ∨В ̅&(A ̅∨С)
4) Для каких из указанных значений числа X истинно высказывание:
(X > 5) ИЛИ ((X < 3) И (X > 1))?
1,2,3,5,10
5) Для какого из приведённых имён истинно высказывание: (Первая буква гласная) И НЕ(Третья буква согласная)?
1) Елена
2) Полина
3) Кристина
4) Анна
6) Для каких из указанных значений числа X истинно высказывание:
(X > 10) И ((X < 4) ИЛИ (X > 15))?
5, 10, 15, 20, 25
const
n = 2;
k = 2;
var
i,j,s:integer;
a:array[1..n,1..k] of integer;
begin
s:=0;
for i:=1 to n do
for j:=1 to k do
begin
Writeln('Введите a[',i,',',j,']:');
readln(a[i,j]);
if a[i,j] mod 2=0 then s:=s+a[i,j];
end;
if s<0 then
for i:=1 to n do
for j:=1 to k do
if j mod 2=0 then
a[i,j]:=1;
if s>=0 then
for i:=1 to n do
for j:=1 to k do
if j mod 2=0 then
a[i,j]:=-1;
for i:=1 to n do
begin
for j:=1 to k do
write('a[':4,i,',',j,']=',a[i,j]);
writeln;
end;
end.