Есть ответ 👍

Дан фрагмент программы обработки двумерного массива: 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
Посмотреть ответы 2

Ответы на вопрос:


// 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

Популярно: Информатика