Question

Помогите плиз к понедельнику решить эту мега сложную задачу)Дано целое число K определите среднее арифметическое делителей данного числа PASCAL

Answer 1

var

  k, i, n: integer;  //k - данное число, n - количество делителей числа k

  s: real;  //s - сумма делителей числа k

 

begin

  n:= 0;  //Обнуляем счетчики

  s:= 0;

  writeln('Введите целое число');

  readln(k);  //Вводим число k

  for i:= 1 to k do  {Проверяем какие числа от 1 до k являются делителями числа k}

    if k mod i = 0 then   {Если k делится без остатка на i, то прибавляем число i к сумме и прибавляем к счетчику 1}

    begin

      n:= n + 1;

      s:= s + i;

    end;

  writeln('Среднее арифметическое делителей числа ', k, ' равно: ', s / n : 0 : 5);  {Выводим среднее арифметическое делителей с округлением до 5 знаков после запятой}

end.

Answer 2

Для решения данной задачи вам потребуется написать программу на языке Pascal, которая будет находить среднее арифметическое делителей заданного целого числа K.

Вот пример программы на языке Pascal, которая решает данную задачу:

program AverageDivisors;

var
  K, sum, count, i: integer;
  average: real;

begin
  // Вводим значение K
  write('Введите целое число K: ');
  readln(K);

// Инициализируем переменные
  sum := 0;
  count := 0;

// Находим сумму делителей числа K
  for i := 1 to K do
  begin
    if K mod i = 0 then
    begin
      sum := sum + i;
      count := count + 1;
    end;
  end;

// Вычисляем среднее арифметическое делителей
  average := sum / count;

// Выводим результат
  writeln('Среднее арифметическое делителей числа ', K, ' равно ', average:0:2);
end.

В данной программе мы сначала вводим значение K с помощью функции `readln`. Затем мы инициализируем переменные `sum` и `count` для хранения суммы делителей и количества делителей соответственно.

Затем мы используем цикл `for` для перебора всех чисел от 1 до K. Внутри цикла мы проверяем, является ли текущее число делителем K с помощью оператора `mod`. Если число является делителем, мы добавляем его к сумме и увеличиваем счетчик делителей.

После завершения цикла мы вычисляем среднее арифметическое делителей, разделив сумму на количество делителей.

Наконец, мы выводим результат с помощью функции `writeln`.

Вы можете скопировать эту программу в среду разработки Pascal и запустить ее, чтобы решить задачу.