Delphi. Программа поиска счастливых, дружественных и совершенных чисел.

[Stilet]

А что такое счастливые дружественные и совершенные числа?

[Virtson]

счастливые числа - которым помогли появиться на свет 'за спасибо'

[Loji]

//Visual C++ CLR
#include "stdafx.h"
using namespace System;
public ref class SearchNumbers abstract{
public:


//Совершенные числа
static System::Collections::Queue^ PerfectNumbers(int Interval1,int Interval2){
System::Collections::Queue^list= gcnew ::Collections::Queue();
int deal;
if(Interval1>1){
for(int i=Interval1;i<=Interval2;i++){
deal=0;
for(int j=i-1;j!=0;j--){
if(i%j==0){deal+=j;};
};
if(i==deal){list->Enqueue(i);};
};};
return list;
};


//Дружественные числа
static System::Collections::Queue^ FriendNumbers(unsigned int Interval1,unsigned int Interval2){
System::Collections::Queue^list= gcnew ::Collections::Queue();
int deal;
int deal1;
if(Interval1>1){
for(int i=Interval1;i<=Interval2;i++){
if(list->Contains(i)==true){i++; continue;};
deal=0;
for(int j=i-1;j!=0;j--){
if(i%j==0){deal+=j;};
};
deal1=0;
for(int k=deal-1;k!=0;k--){
if(deal%k==0){deal1+=k;};
};
if(deal1==i){list->Enqueue(i);list->Enqueue(deal);};
};
};
return list;
};


//Счастливые числа
static System::Collections::Queue^happines sNumber(unsigned long Interval1,unsigned long Interval2){
System::Collections::Queue^list= gcnew ::Collections::Queue();
if(Interval1>0){
unsigned int j;
unsigned int sum2;
unsigned int jk;
bool f;
Byte razr;

for(unsigned long i=Interval1;i<=Interval2;i++){
jk=1;
j=9;
razr=1; //Разрядность числа
f=false;
while(i>j){razr++;j+=90*jk; jk*=10;};
if(razr%2!=0){i*=10;razr++; f= true;};

sum2=0;
jk=0;
j=10;
for(int k=1;k<=razr;k++){
if(k<=razr/2){jk+=Math::Truncate((i%j)/(j/10));}else{
sum2+=Math::Truncate((i%j)/(j/10));};
j*=10;
};
if(jk==sum2){
if(f==false){
list->Enqueue(i);}else{list->Enqueue(i/10);};
};
if(f==true){i=(unsigned long)(i/10);};
};
};
return list;
};
};

void main()
{
System::Collections::Queue^list=Sea rchNumbers::PerfectNumbers(2,1000);
Console::WriteLine("Совершенные:");
for each(Object^ obj in list){
Console::WriteLine(dynamic_cast<int ^>(obj)->ToString());
};
list=SearchNumbers::FriendNumbers(2 ,1000);
Console::WriteLine("Дружественные пары чисел:");
for each(Object^ obj in list){
Console::WriteLine(Convert::ToInt32 (obj).ToString());
};
list=SearchNumbers::happinessNumber (2000,3000);
Console::WriteLine("Счастливые числа:");
for each(Object^ obj in list){
Console::WriteLine(Convert::ToStrin g(obj));
};

Console::ReadKey(false);

}

[RIO]

Реализую быстро и качественно, моя аська 371824579