Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

Ответ
 
Опции темы
Старый 18.10.2018, 17:55   #1
Настя1303
Пользователь
 
Регистрация: 27.09.2018
Сообщений: 16
Репутация: 10
По умолчанию [РЕШЕНО][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, 18:02   #2
Serge_Bliznykov
МегаМодератор
СуперМодератор
 
Регистрация: 09.01.2008
Сообщений: 24,502
Репутация: 5308
По умолчанию

Код:

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 в 18:05.
Serge_Bliznykov вне форума   Ответить с цитированием
Старый 18.10.2018, 18:23   #3
Настя1303
Пользователь
 
Регистрация: 27.09.2018
Сообщений: 16
Репутация: 10
По умолчанию

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

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


03:48.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru