Question

Используя цикл с условием составить программу для вычисления суммы чисел обратных целым из отрезка [-2;12]
Pascal ABC
Желательно как можно быстрее

Answer 1

var

 sum:real;

begin

 for var i := -2 to 12 do

   if (i <> 0) then

     sum := sum + (1/i);

 write(sum);

end.