<span>обмениваются через:магистраль.</span>
А) Источник информации: учитель рассказывает об успеваемости ребёнка матери --> Приёмщик информации: Мама внимательно слушает учителя.
<span>Б) Источник информации: учитель объясняет новую тему на уроке --> Приёмщик информации: ученики внимательно слушают и запоминают информацию. </span>
<span>С) Источник информации: газеты содержат множество различной информации --> Приёмщик информации: ребёнок читает нужную ему информацию </span>
<span>Д) Источник информации и приёмщик информации: мама спрашивает у своей дочки, как она провела день, и слушает ответ на этот вопрос--->Приёмщик информации и источник информации: девочка слушает вопрос и отвечает на него</span>
T = n mod 10; if (n mod t = 0) then writeln(t);
t = n div 10 mod 10; if (n mod t = 0) then writeln(t);
t = n div 100 mod 10; if (n mod t = 0) then writeln(t);
t = n div 1000 mod 10; if (n mod t = 0) then writeln(t);
<span>const n = 15;</span>
<span>var</span>
<span> a: array[1..n] of integer;</span>
<span> i, count: integer;</span>
<span>begin</span>
<span> for i := 1 to n do begin</span>
<span> a[i] := random(100);</span>
<span> write(a[i], ' ');</span>
<span> if(i mod 2 = 0) and (a[i] mod 2 <> 0) then inc(count);</span>
<span> end;</span>
<span> writeln;</span>
<span> writeln('[', count, ']');</span>
<span>end.</span>