Объясняю.За ответ отметить 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.
54
Объяснение:
В кодовой таблице Ascii десятичные коды идут по порядку, как и цифры, которые кодируются этими кодами, то есть:
1 - 49 (по условию), значит
2 - 50
...
6 - 54