Вася нарисовал в редакторе поинт улыбающийся смайлик, разбив область на квадратики. у скольких квадратиков надо поменять цвет, чтобы превратить смайлик в улыбающийся

Не поняла, он же и так улыбающийся? может, картинка есть?

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

// pascalabc.net 3.1, сборка 1239 от 08.05.2016 begin   var nf: =readlnstring('значение n! ').tobiginteger;   var n: =1;   var f: =biginteger(1);   repeat       f*=n;       if f< nf then inc(n)   until f> =nf;   if f=nf then writeln('n=',n)   else writeln('число не является факториалом') end. тестовое решение значение n! 1982608315404440064116146708361898137544773690227268628106279599612729753600000000000000 n=63