0 / 0 / 0
Регистрация: 03.10.2012
Сообщений: 19

Определить, является ли заданное натуральное число совершенным

29.03.2013, 14:33. Показов 1849. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
составить программу, определяющую, является ли заданное натуральное число Р совершенным. Натуральное число называется совершенным, если оно равно сумме всех своих собственных делителей, исключая само число (Например, 6=1+2+3).

P.S. большая просьба, написать полностью(вместе с названием программы и т.д.), так как сам мало что в этом понимаю!
Заранее спасибо!
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
29.03.2013, 14:33
Ответы с готовыми решениями:

Определить, является ли заданное натуральное число совершенным
Определить, является ли заданное натуральное число совершенным, то есть равным сумме всех своих (положительных) делителей, кроме самого...

Определить, является ли заданное натуральное число совершенным
определить,является ли заданное натуральное число совершенным,т.е равным сумме всех (положительных) делителей ,кроме самого этого числа (...

Определить является ли заданное натуральное число совершенным
буду очень благодарна за помощь . задача: Определить является ли заданное натуральное число совершенным т.е. равной сумме всех своих...

2
233 / 223 / 146
Регистрация: 19.03.2012
Сообщений: 369
29.03.2013, 15:00
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Program p1;
Var p,n,s:integer;
BEGIN
  Write('P= ');
  Readln(p);
  n:=1;
  s:=0;
  While n<p do
    begin
      if (p MOD n) = 0 then
        s:=s+n;
      n:=n+1;      
    end;
  if s=p then writeln('Является')
  else writeln('Не является');
END.
P= 6
Является
1
 Аватар для Новичок
1682 / 1097 / 489
Регистрация: 17.07.2012
Сообщений: 5,360
30.03.2013, 13:35
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
program chislo;
var i,p,s:longint;
begin
Write('Введите натуральное число,P=');
Readln(p);
for i:=1 to p div 2 do
if p mod i=0 then s:=s+i;
if p=s then Writeln('Число является совершенным.') else
Writeln('Число не является совершенным.');
Readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
30.03.2013, 13:35
Помогаю со студенческими работами здесь

Является ли заданное натуральное число совершенным
СОСТАВИТЬ программу, проверяющую, является ли заданное натуральное число совершенным

Определить, является ли заданное натуральное число простым
Определить, является ли заданное натуральное число простым

Определить, является ли заданное натуральное число простым
Определить, является ли заданное натуральное число простым. Выходные данные: Вывести YES или NO. Ввод 29 Вывод YES

Определить, является ли заданное натуральное число простым (рекурсия)
11. Определить, является ли заданное натуральное число простым

Выяснить, является ли натуральное число совершенным
Выяснить, является ли натуральное число совершенным, т.е. равным сумме своих делителей, включая 1


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

Новые блоги и статьи
Kubernetes с Apache Flink для обработки данных в реальном времени
Mr. Docker 17.05.2025
Kubernetes — это целая философия управления распределёнными приложениями. В отличие от "примитивных" решений вроде Docker Swarm, K8s (как его ласково называют в тусовке DevOps-инженеров) предлагает. . .
Использование декораторов в Python
py-thonny 17.05.2025
Если вы когда-нибудь задумывались о том, как красиво расширить функциональность кода без лишней возни и дублирования, декораторы в Python — та самая волшебная палочка, которую вы искали. По сути, это. . .
Как некоторые отстают в навыках поиска информации в сети. Дублирование страницы открытого адреса в сети.
Hrethgir 17.05.2025
. . . берём бразуер, для многих он является инструментом поиска информации в сети. Понятное дело, что чтобы переходить по сслыкам есть такая фишка - "открыть в новой вкладке", но, представим себе что вы. . .
Реализация многопоточных сетевых серверов на Python
py-thonny 16.05.2025
Когда сталкиваешься с необходимостью писать высоконагруженные сетевые сервисы, выбор технологии имеет критическое значение. Python, со своей элегантностью и высоким уровнем абстракции, может. . .
C# и IoT: разработка Edge приложений с .NET и Azure IoT
UnmanagedCoder 16.05.2025
Мир меняется прямо на наших глазах, и интернет вещей (IoT) — один из главных катализаторов этих перемен. Если всего десять лет назад концепция "умных" устройств вызывала скептические улыбки, то. . .
Гибридные квантово-классические вычисления: Примеры оптимизации
EggHead 16.05.2025
Гибридные квантово-классические вычисления — это настоящий прорыв в подходах к решению сложнейших вычислительных задач. Представьте себе союз двух разных миров: классические компьютеры, с их. . .
Использование вебсокетов в приложениях Java с Netty
Javaican 16.05.2025
HTTP, краеугольный камень интернета, изначально был спроектирован для передачи гипертекста с минимальной интерактивностью. Его главный недостаток в контексте современных приложений — это. . .
Реализация операторов Kubernetes
Mr. Docker 16.05.2025
Концепция операторов Kubernetes зародилась в недрах компании CoreOS (позже купленной Red Hat), когда команда инженеров искала способ автоматизировать управление распределёнными базами данных в. . .
Отражение в C# и динамическое управление типами
stackOverflow 16.05.2025
Reflection API в . NET — это набор классов и интерфейсов в пространстве имён System. Reflection, который позволяет исследовать и манипулировать типами, методами, свойствами и другими элементами. . .
Настройка гиперпараметров с помощью Grid Search и Random Search в Python
AI_Generated 15.05.2025
В машинном обучении существует фундаментальное разделение между параметрами и гиперпараметрами моделей. Если параметры – это те величины, которые алгоритм "изучает" непосредственно из данных (веса. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru