1. Натуральное число M называется совершенным, если оно равно сумме всех своих делителей,...

Question

1. Натуральное число M называется совершенным, если оно равно
сумме всех своих делителей, включая единицу, но исключая себя. Напечатать все
совершенные числа, меньшие заданного числа N.
Примечание: Решить в
Pascal'е.

Answer 1

#include
#include
#include
using namespace std;

void main()
{
setlocale(LC_CTYPE,"rus");
int x, sum=0;
cout<<"Введите переменную: ";<br>cin>>x;
for(int i=1; i{
if(x%i==0)
sum+=i;
}
if(x==sum)
{cout<<"Это совершенное число"<<endl;}<br>else
{cout<<"Это несовершенное число"<<endl;}<br>}