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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 23.05.2016, 18:40   #1
Rus_k1h
 
Регистрация: 28.03.2016
Сообщений: 5
По умолчанию Простые и совершенные числа

Нужно объяснение данного кода, а именно действия по поиску простых и совершенных чисел. Объясните,пожалуйста,если вас не затруднит.
Сами действия программы:сформировать массив простых и совершенных чисел. Определить наибольшее простое число и наименьшее совершенное.
Сама программа:
Код:
while (!f.eof())
{
    f>>x;
for (i=1;i<=x;i++)
{
    if (x%i==0)
{
    k++;
    }
}
if (k<=2)
{
    a[im]=x;
if (max=-1)
{
    max=a[im];
}
else if (max<a[im])
{
    max=a[max];
}
    im++;
}
k=0;
for (i=1;i<x;i++)
{
    if (x%i==0)
{ 
    sum=sum+i;
}
}
if (sum==x)
{
    d[imin]=x;
if (min==-1)
{
    min=d[imin];
}
else if (min>d[imin])
{
    min=d[imin];
}
imin++;
}
sum=0;
}
Rus_k1h вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
вычислить все числа до n которые равны сумме своих делителей (совершенные числа)//не могу найти ошибку в своей програме на паскале games_vandal Паскаль, Turbo Pascal, PascalABC.NET 0 22.12.2012 14:24
совершенные числа druger Помощь студентам 1 25.09.2011 14:04
совершенные числа Zhasik Паскаль, Turbo Pascal, PascalABC.NET 2 29.12.2010 20:27
Совершенные числа Franzs Общие вопросы .NET 1 18.05.2010 11:54