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

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

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

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

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

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

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

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

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

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

Решение

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
1642 / 1091 / 487
Регистрация: 17.07.2012
Сообщений: 5,345
30.03.2013, 13:35 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.03.2013, 13:35
Помогаю со студенческими работами здесь

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

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

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru