Программа на си b+=a++/(1+a) нужно расписать последовательность действий и что будет получаться если а=4, b=1.9

B=1,9+4+1/1+5=1,15 где a++ это a=a+1 и b+= это b=b+

Program name; //имя программы uses crt; //запуск программы в консольном режиме необязательно var      a : integer;   b : integer;   i : integer;   c : integer; begin //начало программы  write('введите 1 число: ');   readln(a); //ввод значения первого числа  c : = b-a-1;   write('введите 2 число: ');   readln(b); //ввод значения второго числа  writeln(a, ' ' , b); //вывод двух чисел   writeln(a, ' ' ,a*a,' ' , a*a*a); // вывод 1 числа, квадрата, куба  for i : = 1 to b-a-1 do    begin    a : = a + 1;     writeln(a, ' ',a*a, ' ', a*a*a); // вывод всех чисел от a до b  end;               writeln(b, ' ' ,b*b,' ' , b*b*b); // вывод 2 числа, квадрата, куба  readkey;     end. //конец программы

Var a,b,c: integer; x,y,z: string; begin writeln('введите стороны треугольника'); readln(a,b,c); x: ='равнобедренный'; y: ='равносторонний'; z: ='разносторонний'; begin if (c=b) and (a< > c) then writeln('треугольник',' ',x); if (a=c) and (a< > b) then writeln('треугольник',' ',x); if (a=b) and (a< > c) then writeln('треугольник',' ',x); if (a=b) and (a=c) and (b=c) then writeln('треугольник',' ',y); if (a< > b) and (a< > c) and (b< > c) then writeln('треугольник',' ',z); end; readln end.