Объясняю.За ответ отметить 1)сначала подставим значения в выражение: НЕ(3больше2) и НЕ(3=5) 2)запишем значения выражения: 0 и 1 3)И-это связка &,в алгебре логики(информатика,9 класс) это у нас знак конъюнкции. Определение:конъюнкция-логическое умножение. Т.е. если все входящие переменные истинны(равны 1,ноль это ложь,а 1-истина),то и конъюнкция истинна. Из выражения "не(X>Z)и не(X=Y), если X=3, Y=5, Z=2" мы имеем: 0 & 1. 0 не равен единице,из этого следует,что здесь конъюнкция ложна. Кроме конъюнкции действий нет,а это значит,что она-это всё выражение.Если конъюнкция здесь ложная,то и выражение ложное,соотв.оно имеет значение 0. ответ:0
// написанное после двух косых черт - это пояснения. из программы удалить program massiv_summa; var A: array[1..100,1..100] of integer; //предполагаю, что 1<=N<=100 иначе надо измнить параметры массива var N, Sum: integer; var i, j: byte; begin writeln ('введите N'); readln (N); //ввод значения N c клавиатуры Sum:=0; // Определяем начальное значение суммы чисел массива, кратных 3 for i:=1 to N do begin // внешний цикл перебирает строки массива for j:=1 to N do begin //внутренний цикл перебирает ячейки в каждой строке A[i,j]:=random(-10,10); //элементу массива присваивается случайное значение if (A[i,j] mod 3)=0 // если остаток от деления числа на 3 равен нулю (кратно 3) then Sum:=Sum+A[i,j]; //если кратно 3, то прибавляем его к сумме //если не кратно 3, то ничего не делаем. т.е. оператор else отсутствует //Для проверки можно вывести весь массив, например: write (A[i,j]:4); end; writeln //для вывода новой строки массива с новой строки end; writeln ('Сумма чисел кратных 3 равна ',Sum); end.
1)сначала подставим значения в выражение:
НЕ(3больше2) и НЕ(3=5)
2)запишем значения выражения:
0 и 1
3)И-это связка &,в алгебре логики(информатика,9 класс) это у нас знак конъюнкции.
Определение:конъюнкция-логическое умножение.
Т.е. если все входящие переменные истинны(равны 1,ноль это ложь,а 1-истина),то и конъюнкция истинна.
Из выражения "не(X>Z)и не(X=Y), если X=3, Y=5, Z=2" мы имеем:
0 & 1.
0 не равен единице,из этого следует,что здесь конъюнкция ложна.
Кроме конъюнкции действий нет,а это значит,что она-это всё выражение.Если конъюнкция здесь ложная,то и выражение ложное,соотв.оно имеет значение 0.
ответ:0
program massiv_summa;
var A: array[1..100,1..100] of integer;
//предполагаю, что 1<=N<=100 иначе надо измнить параметры массива
var N, Sum: integer;
var i, j: byte;
begin
writeln ('введите N');
readln (N); //ввод значения N c клавиатуры
Sum:=0; // Определяем начальное значение суммы чисел массива, кратных 3
for i:=1 to N do begin // внешний цикл перебирает строки массива
for j:=1 to N do begin //внутренний цикл перебирает ячейки в каждой строке
A[i,j]:=random(-10,10); //элементу массива присваивается случайное значение
if (A[i,j] mod 3)=0 // если остаток от деления числа на 3 равен нулю (кратно 3)
then Sum:=Sum+A[i,j]; //если кратно 3, то прибавляем его к сумме
//если не кратно 3, то ничего не делаем. т.е. оператор else отсутствует //Для проверки можно вывести весь массив, например:
write (A[i,j]:4);
end;
writeln //для вывода новой строки массива с новой строки
end;
writeln ('Сумма чисел кратных 3 равна ',Sum);
end.