Question

Напиши те решения Var у : real; i : integer; у := 1 ; i := 1; while i > 1 do begin y:=y + 1 / i; i:= I – 1; end;

Answer 1

i равно 1, цикл выполняться не будет, y так и останется 1.