Дан фрагмент программы обработки двумерного массива: for i: =1 to 6 do for j: =1 to 6 do begin s: =a[i,j] mod k; if (s mod 2) = 0 then a[i,j]: = 1 else a[i,j]: = 0; end; на вход ему подан массив а, ниже. 19_21_23_25_27_29 57_59_61_63_65_31 55_81_83_85_67_33 53_79_89_87_69_35 51_77_75_73_71_37 49_47_45_43_41_39 какое минимальное значение должно быть у переменной k, чтобы по завершении выполнения фрагмента массив a содержал одинаковое количество единиц и нулей?
210
308
Ответы на вопрос:
// pascalabc.net 3.1, сборка 1239 от 08.05.2016 begin var b: array[1..6,1..6] of integer: =( (19,21,23,25,27,,59,61,63,65,31), (55,81,83,85,67,,79,89,87,69,35), (51,77,75,73,71,,47,45,43,41,39)); var a: array[1..6,1..6] of integer; var k: =2; var k0,k1: integer; for var i: =1 to 6 do begin for var j: =1 to 6 do print(b[i,j]); writeln end; writeln; repeat k0: =0; k1: =0; writeln('k=',k); for var i: =1 to 6 do begin for var j: =1 to 6 do begin if (b[i,j] mod k) mod 2=0 then begin a[i,j]: =1; inc(k1) end else begin a[i,j]: =0; inc(k0) end; print(a[i,j]) end; writeln end; writeln('k0=',k0,', k1=',k1); if k0< > k1 then inc(k) until k0=k1; writeln(newline,'k=',k) end. решение 19 21 23 25 27 29 57 59 61 63 65 31 55 81 83 85 67 33 53 79 89 87 69 35 51 77 75 73 71 37 49 47 45 43 41 39 k=2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 k0=36, k1=0 k=3 0 1 1 0 1 1 1 1 0 1 1 0 0 1 1 0 0 1 1 0 1 1 1 1 1 1 1 0 1 0 0 1 1 0 1 1 k0=12, k1=24 k=4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 k0=36, k1=0 k=5 1 0 0 1 1 1 1 1 0 0 1 0 1 0 0 1 1 0 0 1 1 1 1 1 0 1 1 0 0 1 1 1 1 0 0 1 k0=14, k1=22 k=6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 k0=36, k1=0 k=7 0 1 1 1 1 0 0 0 0 1 1 0 1 1 1 0 1 0 1 1 0 0 1 1 1 1 0 0 0 1 1 0 0 0 1 1 k0=16, k1=20 k=8 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 k0=36, k1=0 k=9 0 0 0 0 1 1 0 0 0 1 1 1 0 1 1 1 1 1 1 0 1 1 1 1 1 0 0 0 1 0 1 1 1 0 0 0 k0=16, k1=20 k=10 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 k0=36, k1=0 k=11 1 1 0 0 0 0 1 1 1 1 1 0 1 1 1 1 0 1 0 1 0 1 0 1 0 1 0 0 0 1 0 0 0 1 1 1 k0=16, k1=20 k=12 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 k0=36, k1=0 k=13 1 1 1 1 0 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 1 0 1 1 1 1 1 0 1 1 1 1 1 1 k0=18, k1=18 k=13 ответ: 13
var x = "abcdefghijklmnopqrstuvwxyz".split("");
x = x.filter(function (зн, ном) { return (ном + 1) % 2 == 0; });
x = x.filter(function (зн, ном) { return ном % 2 == 0; });
x.sort(function (a, b) { return a < b ? 1 : 0; });
alert(x);
b,f,j,n,r,v,z
Популярно: Информатика
-
keti26121.11.2021 01:29
-
katyatyan2003ozrqxb09.12.2022 14:35
-
anastasia20001210.11.2021 15:42
-
saralis16.12.2021 08:15
-
milankagl20.11.2022 11:06
-
arzumirzeyeva07.06.2020 06:45
-
Portée08.03.2023 16:14
-
wutter9921.09.2021 06:14
-
malka7508.08.2022 16:17
-
Ник123321114.05.2022 09:33