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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 18.10.2018, 13:58   #1
Настя1303
Пользователь
 
Регистрация: 27.09.2018
Сообщений: 16
По умолчанию Программа нахождения суммы всех делителей заданного натурального числа N.

Как составить программу нахождения суммы всех делителей заданного натурального числа N, чтобы само число и единица включались в число делителей?
Настя1303 вне форума Ответить с цитированием
Старый 18.10.2018, 14:07   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

может так?

Код:
sum=1;
for i:=2 to N do 
  if (N mod i) = 0 then Inc(sum, i);
Serge_Bliznykov вне форума Ответить с цитированием
Старый 18.10.2018, 14:26   #3
Настя1303
Пользователь
 
Регистрация: 27.09.2018
Сообщений: 16
По умолчанию

А как убрать на выводе начальное число sum?
При вводе 3 выводит 1 4, а нужно только 4.
Настя1303 вне форума Ответить с цитированием
Старый 18.10.2018, 14:29   #4
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от Настя1303 Посмотреть сообщение
При вводе 3 выводит 1 4, а нужно только 4.
простите, кто куда выводит?!
Serge_Bliznykov вне форума Ответить с цитированием
Старый 18.10.2018, 14:30   #5
Настя1303
Пользователь
 
Регистрация: 27.09.2018
Сообщений: 16
По умолчанию

Паскаль на консоль
Настя1303 вне форума Ответить с цитированием
Старый 18.10.2018, 14:43   #6
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от Настя1303 Посмотреть сообщение
Паскаль на консоль
у меня не выводит.

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

Код:

Код:
var N,i:integer;
 sum:=1;
begin
  read (N);
for i:=2 to N do
  begin 
  if (N mod i) = 0 then
    Inc(sum, i);
  writeln(sum);
   end;
  end.
_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

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

Всё, дошло, спасибо)
Настя1303 вне форума Ответить с цитированием
Старый 18.10.2018, 15:21   #9
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Код:
var N,i:integer;
begin
  Write('N = ');
  read (N);
  sum:=1;
  for i:=2 to N do
      if (N mod i) = 0 then Inc(sum, i);
  writeln(sum);
end.
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Программа печати всех делителей натурального числа A 8Observer8 Паскаль, Turbo Pascal, PascalABC.NET 3 09.09.2013 17:59
Поцедура нахождения суммы цифр натурального числа на Паскале rom6520 Помощь студентам 1 21.01.2011 10:32
C++/ Все способы представления заданного натурального числа N в виде суммы двух кубов натуральных чисел / acko Помощь студентам 1 25.09.2010 12:15
Составить программу нахождения всех делителей натурального числа N livestrong Помощь студентам 1 24.12.2008 20:35
Составить программу нахождения всех делителей натурального числа N livestrong Помощь студентам 3 24.12.2008 19:02