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

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

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

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

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

может так?

Код:

sum=1;
for i:=2 to N do 
  if (N mod i) = 0 then Inc(sum, i);

Serge_Bliznykov вне форума   Ответить с цитированием
Старый 18.10.2018, 15:26   #3
Настя1303
Пользователь
 
Регистрация: 27.09.2018
Сообщений: 16
Репутация: 10
По умолчанию

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

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

Паскаль на консоль
Настя1303 вне форума   Ответить с цитированием
Старый 18.10.2018, 15:43   #6
Serge_Bliznykov
МегаМодератор
СуперМодератор
 
Регистрация: 09.01.2008
Сообщений: 24,495
Репутация: 5308
По умолчанию

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

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

Код:

Код:

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

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

Код:

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 вне форума   Ответить с цитированием
Ответ

Опции темы

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

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

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

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


19:47.


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

RusProfile.ru


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