Question

помогите, пожалуйста, очень нужно! Паскаль. Совершенным называется число, равное сумме всех своих делителей, меньших его самого (например, число 6=1+2+3). Напишите программу, которая вводит натуральное число N и определяет, является ли число N совершенным.

Входные данные
Входная строка содержит натуральное число N .

Выходные данные
Если число N – совершенное, программа должна вывести в одну строчку через пробел все делители этого числа, меньшие N . Если число несовершенное, программа должна вывести 0.

Answer 1

PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018

Внимание! Если программа не работает, обновите версию!

function СовершенноеЧисло(n: integer): boolean;

begin

 var (s,d,n2) := (1,2,n div 2);

 while d <= n2 do

 begin

   if n mod d = 0 then s += d;

   Inc(d)

 end;

 Result := n = s

end;

begin

 if СовершенноеЧисло(ReadInteger) then Print('Совершенное')

 else Print('Несовершенное')

end.

Пример

33550336

Совершенное

Answer 2

Не заметил. Прочитал только это: "Напишите программу, которая вводит натуральное число N и определяет, является ли число N совершенным." Модератор увидит, даст ответ на исправление, допишу, это легко. А сейчас не могу. Ответ можно править не позднее двух часов после того, как он дан.

Answer 3

Ну или если срочно, сделайте вопрос за минимум баллов, сколько там, 2 надо дать что ли... я там дам новый ответ

Answer 4

Нет, спасибо, у меня ведь все равно не работают Ваши программы..

Answer 5

Ну, как знаете)

Answer 6

В следующие раз указывайте диалект языка