Question

Помогите,пожалуйста.Очень срочно нужно

Answer 1

Код полностью
//PascalABC.NET 3.1 сборка 1239
var
    a, b, c: integer;

begin
    a := 9;
    b := 3;
    c := 1;
   
    while not (a = b) do
    begin
        c := c + (a - b);
        a := a - 1;
        b := b + 1;
        {Println(a, b, c);}
    end;
   
    writeln('c=',c);
   {2}
    a := 10;
    b := 2;
   
    while not (a <5) do
    begin
        b := b + 10-a;
        a := a - 1;
        {Println(a, b, c);}
    end;
   
    writeln('b=',b);
end.

Вывод программы
c=13
b=17