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.

Answer 2

Конечно! Вот программа на Pascal ABC, использующая цикл с условием для вычисления суммы чисел, обратных целым числам из отрезка [-2; 12]:

pascalCopy code
program SumOfReciprocals;
var
  i: integer;
  sum: real;

begin
  sum := 0;
  for i := -2 to 12 do
  begin
    if i <> 0 then
      sum := sum + 1 / i;
  end;
  writeln('Сумма обратных чисел: ', sum);
end.

Эта программа начинает с инициализации переменных i (для итерации по отрезку) и sum (для хранения суммы чисел обратных целым). Затем она использует цикл for для итерации по числам от -2 до 12. Внутри цикла проверяется условие i <> 0 для исключения деления на ноль, а затем выполняется операция sum := sum + 1 / i, чтобы добавить обратное число к сумме. Наконец, программа выводит результат с помощью процедуры writeln.

Надеюсь, это поможет! Если у вас возникнут еще вопросы, пожалуйста, не стесняйтесь спрашивать.