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

@_Chaffee · Регистрация: 18.10.2014

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

Дано число n. Определить является ли число совершенным. Число называется совершенным, если оно равано сумме всех своих делителей, включая 1,например, 6=1+2+3. Для этого необходимо перебрать все натуральные числа от 1 до половины (или ее целой части) от проверяемого числа и, если остаток от деления рассматриваемого числа на данное равен нулю ,добавить очередное значение к сумме. Значение больше половины проверяемого числа, не имеет смысла рассматривать, так как они не будут его делителями.

@Joy · 18.11.2014, 05:31

отсюда Построить новую последовательность, содержащую те элементы, у которых сумма делителей равна заданному X

Pascal

var n:integer;
begin
  write('n=');readln(n);
    if Enumerable.Range(1, n div 2).Where((i : Integer) -> n mod i = 0).Sum() = n then writeln(n,' совершенное ') else writeln(n,'  не совершенное ');
end;

Добавлено через 9 часов 19 минут
перед var забыл написать:

Pascal

1	uses System.Linq;

@_Chaffee 3 / 7 / 5 Регистрация: 18.10.2014 Сообщений: 177
		1
	Определить является ли заданное число совершенным 17.11.2014, 19:30. Показов 1655. Ответов 1 Метки нет (Все метки) Дано число n. Определить является ли число совершенным. Число называется совершенным, если оно равано сумме всех своих делителей, включая 1,например, 6=1+2+3. Для этого необходимо перебрать все натуральные числа от 1 до половины (или ее целой части) от проверяемого числа и, если остаток от деления рассматриваемого числа на данное равен нулю ,добавить очередное значение к сумме. Значение больше половины проверяемого числа, не имеет смысла рассматривать, так как они не будут его делителями. 0

	18.11.2014, 05:31

Опции темы

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

Решение