Ответы на вопрос:
¬(¬(¬a v ¬b) & (a v b)) ⇒ ¬((a & b) & (a v b)) ⇒ ¬((a & b & a) v (a & b & b)) ⇒ ¬((a & b) v (a & b)) ⇒ ¬(a & b) ⇒ ¬a v ¬b
// pascalabc.net 3.0, сборка 1128 procedure matinput(m: array[,] of integer); begin var nr: =length(m,0); var nc: =length(m,1); writelnformat('введите построчно массив размером {0}x{1}',nr,nc); for var i: =0 to nr-1 do for var j: =0 to nc-1 do read(m[i,j]); end; function s(m: array[,] of integer): integer; begin result: =0; var zero: integer; for var i: =0 to length(m,0)-1 do begin zero: =1; for var j: =0 to length(m,1)-1 do if m[i,j]=0 then begin zero: =0; break end; result+=zero; if result=1 then begin result: =0; exit end end; result: =1 end; begin var a: =new integer[3,4]; matinput(a); var b: =new integer[3,3]; matinput(b); writeln(s(a)); writeln(s(b)); end. тестовое решение: введите построчно массив размером 3x4 1 2 3 4 5 6 7 8 9 0 1 2 введите построчно массив размером 3x3 1 2 0 2 0 1 0 1 0 0 1
Популярно: Информатика
-
danilabelinovp08mj914.03.2021 01:05
-
2458k07.08.2020 02:34
-
saaafffina890210.06.2020 13:19
-
Яна578916.02.2021 19:02
-
Айдан123110.04.2022 07:48
-
НИКвсе28.09.2022 18:19
-
НастяMAY30.09.2022 15:48
-
Гульнара170919.08.2021 16:13
-
Kostyaofficial14.08.2021 02:41
-
innahot41831.07.2021 17:12