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

annapupnova annapupnova    3   14.02.2020 00:15    5

Ответы
DmitryKind98 DmitryKind98  17.08.2020 16:54

var

 sum:real;

begin

 for var i := -2 to 12 do

   if (i <> 0) then

     sum := sum + (1/i);

 write(sum);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика