Продолжить алгоритм пузырьковой сортировки
24 18 26 -51 -43

var a,b,i,s: integer;

begin

writeln('введите 2 числа');

readln(a); readln(b);

s: =0;

if a< b then

for i: =a to b do

  begin

  if i mod 2 = 0 then

  s: =s+1;

  end;

if a> b then

for i: =b to a do

  begin

  if i mod 2 = 0 then

  s: =s+1;

  end;

writeln(s)

end.

var

a: integer;

begin

readln(n);

writeln('сумма цифр числа ',a,' равна', a div 100+(a mod 100) div 10 +a mod 10);

end.

var

a: integer;

begin

readln(n);

writeln((a mod 10)*100+((a mod 100) div 10)*10 +a div 100);

end.

для начала переведем 100мбит в байты.

100мбитс=100*1024*1024/8=13107200 байт

  13107200 байт*1с =  13107200 байт.

ответ:   13107200 байт.

одна из возможных форм курсора - прямая