Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.10.2018, 16:55   #1
Настя1303
Пользователь
 
Регистрация: 27.09.2018
Сообщений: 16
По умолчанию [РЕШЕНО][Pascal] Нахождение среднего арифметического

Помогите составить программу нахождения среднего арифметического значения всех делителей заданного натурального числа N.
(Само число и единица включаются в число делителей.).
Пример: Вход 4 Выход 2.3333333333
Не понимаю, где косяк, выводит 1,5.

Код:
 var N,i:integer;
  sr:double;
 sum:=0;
begin
  read ( N);
for i:=2 to N do
  begin 
  if (N mod i = 0) then
    Inc(sum, i);
   end;
    sr:=sum/i; 
    writeln(sr);
  end.
Настя1303 вне форума Ответить с цитированием
Старый 18.10.2018, 17:02   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Код:
var N, i, sum, count:integer;
  sr:double;
begin
  read ( N);
  sum:=0;
  count := 0;
  for i:=1 to N do
    if (N mod i = 0) then 
    begin
        Inc(sum, i); { добавим делитель к сумме }
        Inc(count);  { увеличим счётчик делителей  }
    end;
  sr:=sum/count; 
  writeln(sr);
end.

Последний раз редактировалось Serge_Bliznykov; 18.10.2018 в 17:05.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 18.10.2018, 17:23   #3
Настя1303
Пользователь
 
Регистрация: 27.09.2018
Сообщений: 16
По умолчанию

Спасибо
Настя1303 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
С#. Нахождение среднего арифметического, вывод массива. Андрей Телепнёв Помощь студентам 1 27.08.2013 11:20
Нахождение среднего арифметического. Ассемблер Nik953 Помощь студентам 0 18.04.2013 08:47
массив, нахождение среднего арифметического андрей.... Помощь студентам 4 21.12.2012 22:32
Нахождение среднего арифметического с помощью Паскаля Regina Помощь студентам 3 15.11.2009 11:32
Нахождение среднего арифметического AliVe Паскаль, Turbo Pascal, PascalABC.NET 1 12.04.2007 00:25