1. заполнить магический квадрат (25,8,11,14,17,20,23,26), составить свой магический квадрат. 2. придумать алгоритм-фокус. 3. решить алгоритм гаусса ( 4,5,6,7,8,9,10,11,12,13)
150
380
Ответы на вопрос:
Магический квадрат с n сторон const mn = 16; var p: boolean; procedure swap(var a, b: integer); var t: integer; begin t : = a; a : = b; b : = t end; procedure createmagic(n: integer); var i, j, k, s, b, r, m: integer; a: array[1.. mn, 1.. mn] of integer; begin p : = true; if odd(n) then begin i : = 1; j : = succ(n div 2); for k : = 1 to sqr(n) do begin a[i, j] : = k; if k mod n = 0 then inc(i) else begin dec(i); inc(j); if i = 0 then i : = n; if j > n then j : = 1 end end; end else if n mod 4 = 0 then begin k : = 1; for i : = 1 to n do for j : = 1 to n do begin a[i, j] : = k; inc(k) end; j : = 2; m : = n div 2; for i : = 1 to m do for k : = 1 to m div 2 do begin if j = succ(m) then j : = 2 else if j = (m + 2) then j : = 1; s : = succ(n - i); b : = succ(n - j); swap(a[i, j], a[s, b]); swap(a[i, b], a[s, j]); inc(j, 2) end end else if n < > 2 then begin k : = 1; for i : = 1 to n do for j : = 1 to n do begin a[i, j] : = k; inc(k) end; r : = pred(n div 2) div 2; m : = n div 2; for i : = 1 to m do begin j : = i; for k : = 1 to r do begin if j > m then j : = 1; s : = succ(n - i); b : = succ(n - j); swap(a[i, j], a[s, b]); swap(a[i, b], a[s, j]); inc(j) end end; i : = 1; for k : = 1 to m do begin if j > m then j : = 1; s : = succ(n - i); swap(a[i, j], a[s, j]); inc(i); inc(j) end; i : = 1; j : = r + 2; for k : = 1 to m do begin if j > m then j : = 1; b : = succ(n - j); swap(a[i, j], a[i, b]); inc(i); inc(j) end end else p : = false; if p then begin for i : = 1 to n do begin for j : = 1 to n do write(a[i, j]: 4); writeln end end else writeln( 'do not exists' ) end; var n: integer; begin writeln('n = '); readln(n); createmagic(n); end.
Если все карандаши разных цветов, то шанс достать карандаш красного (а также любого иного указанного цвета) одинаков и равен 1/15. тогда действует формула хартли и получаем величину, равную двоичному логарифму 15 или примерно 3.907 бита.
Популярно: Информатика
-
olmilevskaya108.04.2022 05:31
-
susannashakiro30.05.2021 12:36
-
jova20011p0bpf920.06.2021 04:19
-
BlueSubaru66618.01.2023 16:40
-
po4emy22825.07.2021 18:20
-
Карина111199929.12.2021 22:32
-
diana1717120.07.2020 02:45
-
Ибрагим00230.04.2021 12:50
-
yaroslavus08.01.2021 20:08
-
serjksu03.11.2022 14:56