Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > .NET Frameworks (точка нет фреймворки) > Общие вопросы .NET
Регистрация

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.05.2010, 19:56   #1
Franzs
 
Регистрация: 23.04.2010
Сообщений: 5
По умолчанию Совершенные числа

Является ли число совершенным или нет? Не могу составить код!
Franzs вне форума Ответить с цитированием
Старый 18.05.2010, 11:54   #2
Manonia
Пользователь
 
Регистрация: 13.01.2010
Сообщений: 77
По умолчанию

В интернете много материала на эту тему. С С# дружить начала недавно, вот что получилось.

Код:
namespace ConsoleApplication9
{
    class perfectNumber
    {
        public bool isPerfect(Int64 chislo)
        {
            Int64 summa;

            Int64 i; Int64 j;
            bool rezult = false;
           
                summa = 0;

                Int64 chislo1 = (Int64)chislo / 2 + 1;

                for (j = 1; j < chislo1; j++)
              
                {
                    if ((chislo % j) == 0)
                    {
                        summa += j;
                    }
                }
                if (summa == chislo)
                {
                    rezult = true;
                }
           
            

                return rezult;
        }

    }


    class Program
    {
        static void Main(string[] args)
        {
            Console.WriteLine("Enter number please:");
            Int64 chislo = Convert.ToInt64(Console.ReadLine());
            perfectNumber pn = new perfectNumber();


            if (pn.isPerfect(chislo))
            {
                Console.WriteLine("Number {0} - is perfect! ))", chislo);
                Console.ReadKey();
            }
            else
            {
                Console.WriteLine("Number {0} - is not perfect! ))", chislo);
                Console.ReadKey();
            }


        }
    }
}

Последний раз редактировалось Manonia; 18.05.2010 в 12:04.
Manonia вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дано n. Получите все совершенные числа, меньше n. Anvilion Помощь студентам 4 08.12.2011 20:06
ДАНЫ 4 ЧИСЛА X Y Z W составит программу найти произведение все положительные нечетные числа Woland-itn Паскаль, Turbo Pascal, PascalABC.NET 3 23.03.2008 21:49
Программа "Совершенные числа" Reaper_Man Помощь студентам 4 22.12.2007 00:38