Колония клеток представляет собой квадратную матрицу порядка n (n < 500). в колонию проникает m (m < 11) вирусов, которые поражают клетки с координатами (x1, y1), … (xm, ym). за одну единицу времени вирус проникает в клетки, соседние с зараженными (соседними считаются клетки, имеющие общую сторону). требуется написать программу, которая определит время заражения всей колонии.

Program task; const n = 499; m = 1; var a: array [1..n, 1..n] of boolean; i, j, x, y, t: integer; b: boolean; begin randomize; while i < m do begin x : = random(n) + 1; y : = random(n) + 1; if a[x, y] = false then begin a[x, y] : = true; i : = i + 1; end; end; while b = false do begin b : = true; for i : = 1 to n do for j : = 1 to n do begin if a[i, j] = true then begin if (i + 1) < = n then a[i + 1, j] : = true; if (i - 1) > 0 then a[i - 1, j] : = true; if(j + 1) < = n then a[i, j + 1] : = true; if (j -1) > 0 then a[i, j - 1] : = true; end; end; for i : = 1 to n do for j : = 1 to n do if a[i, j] = false then b : = false; t : = t + 1; end; writeln(t); readln; end.

нет,оно вряд ли.ведь что такое компьютер? это арифрометр.не видили никогда такую машинку? компьютер работает тупо.а про разборки (искусственого интелекта) я могу много баек рассказать могу это дело.и в ученые доили.государство,и в сша.

 

 

1

program xxx;

    var n : integer;

begin

    write('введите число n=');

    readln(n);

    if n mod 2 = 0 then write('четное') else write ('нечетное');

    realdn

end.

 

2

program xxx;

    var n : integer;

begin

    write('введите число n=');

    readln(n);

    e : = n mod 10

    if e = 7 then write('заканчивается на 7') else write ('не заканчивается на 7');

    realdn

end.