Примеры актуальной и достоверной информации

Актуальная информ примеры: 1) накануне о контрольной работе 2) прогноз погоды на завтра актуальнее прогноза на вчера  достоверная информ примеры: 1) пропущено занятие, подруга говорит, что ничего не задано. 2) скачали информацию в интернете

Var       i, k, n, d: integer; begin       readln(n);       k : = 0;             for i : = 1 to n do       begin               readln(d);               { d: =random(100); }               if (d mod 10 = 3) then                       k : = k + 1;       end;             writeln(k); end.

Представим  куб в виде графа его каркаса.  пронумеруем все вершины куба цифрами от 1 до 8.  сводится к обычному обходу в ширину. для четных n ответ  будет 0, т.к. нельзя дойти на противоположную вершину за четное кол-во шагов. ответ будет расти в прогрессии в зависимости от n. программа: const   m: array[1..8, 1..8] of byte =    ((0, 1, 1, 1, 0, 0, 0, 0),   (1, 0, 0, 0, 1, 0, 1, 0),   (1, 0, 0, 0, 1, 1, 0, 0),   (1, 0, 0, 0, 0, 1, 1, 0),   (0, 1, 1, 0, 0, 0, 0, 1),   (0, 0, 1, 1, 0, 0, 0, 1),   (0, 1, 0, 1, 0, 0, 0, 1),   (0, 0, 0, 0, 1, 1, 1, 0));     var   n, i, j, k: integer;   a: array[0..100, 1..8] of int64; begin   read(n);   a[0, 1] : = 1;   for k : = 1 to n do     for i : = 1 to 8 do       for j : = 1 to 8 do         if m[i, j] = 1 then           a[k, i] : = a[k, i] + a[k - 1, j];   write(a[n, 8]); end.