Question

Напишите программу получения всех совершенных чисел из диапазона от 1 до N.Прошу написать через цикл While.

Answer 1

var n,i,j,s,k:integer;

begin

write('Введите число: ');

readln(n);

i:=1;

while i <= n do  

begin

j:=1;

s:=0;

while j<i

do

if i mod j = 0 then

begin

s:=s+j;

j:=j+1;

end

else

j:=j+1;

if s=i then

begin

k:=k+1;

if k=1 then write('Совершенные числа из диапазона от 1 до ',n,': ');

write(i,'  ')

end;

i:=i+1

end;

if k=0 then write('Совершенных чисел в диапазоне от 1 до ',n,' нет');

end.

Answer 2

Совершенное число - это натуральное число, равное сумме всех своих делителей, исключая само число. Например, число 28 - совершенное, потому что его делители (кроме 28) равны 1, 2, 4, 7, 14, и их сумма равна 28.

Вот программа на языке Python, которая находит все совершенные числа в заданном диапазоне от 1 до N:

pythonCopy code
def get_divisors_sum(num):
    # Функция для нахождения суммы всех делителей числа (кроме самого числа)
    divisors_sum = 0
    for i in range(1, num):
        if num % i == 0:
            divisors_sum += i
    return divisors_sum

def get_perfect_numbers_in_range(N):
    # Функция для получения всех совершенных чисел в диапазоне от 1 до N
    perfect_numbers = []
    num = 1
    while num <= N:
        divisors_sum = get_divisors_sum(num)
        if divisors_sum == num:
            perfect_numbers.append(num)
        num += 1
    return perfect_numbers

# Получаем N от пользователя
N = int(input("Введите число N: "))

# Получаем все совершенные числа в заданном диапазоне
perfect_numbers = get_perfect_numbers_in_range(N)

# Выводим результаты
print("Совершенные числа в диапазоне от 1 до", N, ":", perfect_numbers)

Программа запрашивает у пользователя число N, а затем выводит список всех совершенных чисел в диапазоне от 1 до N.