Почему обмен данными между устройствами компьютера с шины оказался
наилучшим решением?

100*1000000/8=12500000 байт в секунду

program ; var n : integer; begin    for n: = 10 to 99 do        if n mod 13 = 0 then writeln(n);     readln; end.

read(n);

s = str(n);

n1 : = int(s[1]);

n2 : = int(s[2]);

n3 : = int(s[3]);

if (n1+n2+n3) mod 2 = 0 then writeln("сумма чисел четная")

var i,n,s: nteger;

begin

  read(n);

  for i : = 1 to n do

      if i mod 2 = 0 then s: = s-1/i;

      else s: = s+1/i;

  writeln(s);

end.