Вычислить сумму всех делителей заданного натурального числа

@dr.Who · Регистрация: 28.12.2010

Студворк — интернет-сервис помощи студентам

Очень нужна помощь с написанием следующих программ))
1. Написать программу, которая вычисляет сумму всех делителей заданного натурального числа.
2. Написать программу, которая проверяет справедливость равенства: (1^5+2^5+...+n^5)+(1^7+2^7+...+n^7)=2(1+ 2+...+n)

@Puporev · 08.01.2011, 18:50

Сумма делителей

Pascal
1
2
3
s:=0;
for i:=1 to n do
if n mod i=0 then s:=s+i;

@grebljmax · 08.01.2011, 18:51

1. Написать программу, которая вычисляет сумму всех делителей заданного натурального числа.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure poisk;
var
 i,n,k : Integer;
begin
 
   k:=0;
   readln(n);
 
     for i:=1 to n do
      if n mod i=0 
      then k:=k+1;
   writeln(k);
end;

@Puporev · 08.01.2011, 18:54

grebljmax, Сумма и количество это разные вещи....

Добавлено через 1 минуту

Сообщение от dr.Who

справедливость равенства: (1^5+2^5+...+n^5)+(1^7+2^7+...+n^7)=2(1+ 2+...+n)

Что-то не правильно написано, ибо это глупость.

@MegaAce · 08.01.2011, 18:56

Возможно так:

Pascal
1
2
3
s:=0;
for i:=1 to n do
if n mod i = 0 then s:=s+i;

Pascal
1
2
3
4
5
6
7
8
9
10
s1:=0;
s2:=0;
s3:=0;
for i:=1 to n do
begin
s1:=s1+exp(ln(i) * 5);
s2:=s2+exp(ln(i) * 7);
s3:=s3+i;
end
if ((s1+s2) == (2*s3)) then writeln("Правильно!");

Не по теме:

Сорри что не обновил и не увидел, что уже все сделано((

@Puporev · 08.01.2011, 18:57

Сообщение от MegaAce

for i:=2 to n do

Разве число 1 не является делителем?

@MegaAce · 08.01.2011, 18:59

Сообщение от Puporev

Разве число 1 не является делителем?

Является) что-то протупил

@dr.Who · 08.01.2011, 18:59 **[ТС]**

Puporev, что значит глупость?)
это задание)

@Puporev · 08.01.2011, 19:01

dr.Who, Вы просто посчитайте из интереса при n=2, разве в принципе может быть такое равенство, как Вы написали? Но это конечно Ваше личное дело.

@dr.Who · 08.01.2011, 19:06 **[ТС]**

Puporev, да ну я как бы понимаю что нет числа, при котором это равенство будет верным..
суть то не в этом
суть в том, что программу написать нужно..

@Sasha_Smirnov · 09.01.2013, 23:49

Сообщение от dr.Who

(1^5+2^5+...+n^5)+(1^7+2^7+...+n^7)=2(1+ 2+...+n)^4

Например: 1^5 + 2^5 + 3^5 + 4^5 + 1^7 + 2^7 + 3^7 + 4^7 = 2 · (1 + 2 + 3 + 4)^4 = 20000; ну как, а?

Новые блоги и статьи Все статьи Все блоги /
Был там один разговор по поводу свободы в материальном мире. kumehtar 19.08.2026 Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .	Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .	Лето уходит kumehtar 17.08.2026	Мысли в слух kumehtar 17.08.2026 Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .
Перемещение строк из ТЧ в другой документ с учетом текущего пробега Maks 17.08.2026 Реализация из решения ниже выполнена на примере нетипового документа "Автозапчасти", с ТЧ "Шины". За основу взят алгоритм отсюда: https:/ / www. cyberforum. ru/ blogs/ 359708/ 10838. html Задача: . . .	Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .	Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .

@dr.Who 0 / 0 / 0 Регистрация: 28.12.2010 Сообщений: 14

	Вычислить сумму всех делителей заданного натурального числа 08.01.2011, 18:46. Показов 6641. Ответов 10 Метки нет (Все метки) Очень нужна помощь с написанием следующих программ)) 1. Написать программу, которая вычисляет сумму всех делителей заданного натурального числа. 2. Написать программу, которая проверяет справедливость равенства: (1^5+2^5+...+n^5)+(1^7+2^7+...+n^7)=2(1+ 2+...+n) 0

@dr.Who 0 / 0 / 0 Регистрация: 28.12.2010 Сообщений: 14
	08.01.2011, 18:59 [ТС]
	Puporev, что значит глупость?) это задание) 0

@Puporev Почетный модератор 64320 / 47616 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	08.01.2011, 19:01
	dr.Who, Вы просто посчитайте из интереса при n=2, разве в принципе может быть такое равенство, как Вы написали? Но это конечно Ваше личное дело. 0

@dr.Who 0 / 0 / 0 Регистрация: 28.12.2010 Сообщений: 14
	08.01.2011, 19:06 [ТС]
	Puporev, да ну я как бы понимаю что нет числа, при котором это равенство будет верным.. суть то не в этом суть в том, что программу написать нужно.. 0

Вычислить сумму всех делителей заданного натурального числа

Решение