запишите значение переменной b после выполнения следующего фрагмента алгоритма​

B = 28 после всех вычислений. Идёт сравнение: если модуль числа A < B,  то цикл повторяется и от A отнимается 2. После первого цикла A станет -2, но, т.к. с B мы сравниваем модуль A, то 2 < 27. И так далее 14 раз, пока А не станет = -28, условие выполнится и B станет = |-28| = 28. И программа завершится.

В виде кода это выглядит так:

static void Main(string[] args)

       {

           int a = 0, b = 27;

           while(Math.Abs(a) < b)

           {

               a = a - 2;

           }

           b = Math.Abs(a);

           Console.WriteLine("Число B = " + b);

           Console.ReadKey();

       }

Объяснение:

Var     n, m, sum: integer;   begin     sum : = 0;     repeat     writeln('введите числ с которого начинается ряд');     readln(n);     writeln('введите число которым заканчивается ряд');     readln(m);     until n< m;       if odd(n) then n : = n + 1;     if odd(m) then m : = m - 1;     sum : = (n + m) * (m - n + 2) div 4;     writeln('сумма чётных чисел натурального ряда: ', sum); end.

Uses graphABC;procedure samolet(x:integer);
begin
setpencolor(clblack);
line(3+x,160,3+x,200);     // зад
line(3+x,160,30+x,180);
line(3+x,200,88+x,205);
line(30+x,180,100+x,175);
line(125+x,176,170+x,200);
line(170+x,200,172+x,202);
line(172+x,202,170+x,204);
line(170+x,204,115+x,205);
line(120+x,195,85+x,255);   //крыло
2line(85+x,255,75+x,258);
line(75+x,258,90+x,195);
line(95+x,175,105+x,125);       // крыло
line(105+x,125,116+x,128);
line(125+x,175,116+x,128);
setpencolor(clblue);          //пилот
floodfill(135+x,190,clred);
line(135+x,182,135+x,192);
line(135+x,192,158+x,194);
end;
var x:integer;
begin
lockdrawing;
for x:=1 to 640 do      //движения 
begin 
clearwindow; 
 samolet(x); 
sleep(10); 
redraw end;end.