Дан фрагмент программы на языке паскаль for i: =1 to 5 do for j: =1 to 5 do if (i+j) mod 2 < > 0 then write (скрыть кролика); если применить данный алгоритм к матрице заполненной кроликами то сколько кроликов останутся нескрытыми?

Всего 25, скрыты 12, 25 - 12 = 13 в 13

Ответ 12 проверьте все варианты для i+j (сумма нечетна) 1   2;   1   4;   2   1;     2   3;     2   5; 3   2;     3   4;     4   1;     4   3;     4   5;     5   2;     5   4

// pascal var   a: array [1..16] of integer;   i: integer; b: boolean; begin   randomize;   for i : = 1 to 16 do a[i] : = random(-20, 20);   for i : = 1 to 16 do       if a[i] = 0 then begin           if b then write(', ');           write(i, '-й ');           b : = true;       end;   if b then writeln('элемент(ы) равен(ны) нулю') else writeln('в массиве нету элементов, равных нулю.'); end.

Var       k: integer;       a, s: real; begin       write('начальная стоимость: ');       readln(a);       {write('число проданных газет:   ');       readln(k); }       k : = 200;             if k < = 50 then s : = k * a       else       begin               s : = 50 * a;               s : = s + (k - 50) * a * 1.2;       end;       writeln('выручка составила  ', s, ' руб.'); end.