Проблема с программой, помогите решить. Не выводит результат var a,i: integer; b:real;...

Question

Проблема с программой, помогите решить. Не выводит результат var a,i: integer; b:real; begin writeln('Введите значение a: '); readln (a); b:=0; i:=1; while i<= a do b:= b+1/i; writeln('b= ', b); end.

Answer 1

var

   a, i: integer;  

   b: real;

begin

   writeln('Введите значение a: ');  

   readln(a);

   b := 0;  

   i := 1;

   while i <= a do  </p>

   begin

       b := b + 1 / i;  

       inc(i);

   end;

   writeln('b= ', b);

end.

Answer 2

в цикле

while i <= a do b:= b+1/i;</p>

у тебя никак не меняются ни i ни a, поэтому получается бесконечный цикл из которого программа никогда не выйдет.