Сколько различных решений имеетсколько различных решений имеет уравнение (к v > (l& м & n) = ложь, где k, l, m, n - логические переменные ? (указатель количество различных наборов значений переменных k, l, m, n, удовлетворяющих уравнению.) 1) 4; 2) 10; 3) 8; 4) 12
194
232
Ответы на вопрос:
Procedure four(n: integer; var a: a_type); {процедура построения квадрата при n двойной четности: n=4,8,12,} pascalвыделить код1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 var i,j,k: integer; p,l: integer; i1,j1,x,y: integer; begin l: =1; p: =n*n; for i: =1 to n do for j: =1 to n do begin a[i,j]: =l; inc(l) {l: =l+1} end; i: =2; while i< =n-2 do begin if i mod 4=0 then j: =4 else j: =2; while j< =n-2 do begin for i1: =0 to 1 do for j1: =0 to 1 do begin y: =i+i1; x: =j+j1; a[y,x]: =p-a[y,x]+1; end; j: =j+4; end; i: =i+2 end; k: =4; while k< =n-4 do begin a[1,k]: =p-a[1,k]+1; a[1,k+1]: =p-a[1,k+1]+1; a[n,k]: =p-a[n,k]+1; a[n,k+1]: =p-a[n,k+1]+1; a[k,1]: =p-a[k,1]+1; a[k+1,1]: =p-a[k+1,1]+1; a[k,n]: =p-a[k,n]+1; a[k+1,n]: =p-a[k+1,n]+1; k: =k+4 end; a[1,1]: =p-a[1,1]+1; a[n,n]: =p-a[n,n]+1; a[1,n]: =p-a[1,n]+1; a[n,1]: =p-a[n,1]+1; end;
Популярно: Информатика
-
serg19720026.04.2020 22:45
-
85Angel8505.11.2022 23:13
-
олеся78813.12.2020 07:15
-
Ella00316.02.2022 03:17
-
Бантюсик19.11.2022 01:52
-
Неизвестный1778115.05.2020 12:53
-
missvaleria212.04.2020 08:38
-
sukalovan031.12.2020 02:26
-
shumilovakate08.06.2022 22:52
-
ученик142523.02.2020 17:43