2. Совершенным числом называется число, равное сумме всех делителей, меньших, чем оно само. Например, 28=

[Sos1]

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

[Chudo4258]

readln(n);
S:=0;
for i:=1 to n-1 do
  if (n mod i =0) then S:=S+i;
writeln(n=S);

[Пепел Феникса]

1)какой язык?
2)где наработки или цена?

[Sos1]

1 Паскаль
2 Что за цена?

[ROMA2PVT]

2 Что за цена?

Цена решения вам этого задания.(СПЕЦ ПРЕДЛОЖЕНИЕ ДЛЯ ХАЛЯВЩИКОВ)

[Vikenty]

Цена o_O
Функция для проверки:

function IsPerfect(Number: integer): boolean;
var
s,i: integer;
begin
s:=0;
IsPerfect:=false;
for i:=1 to n-1 do
if (n mod i =0) then S:=S+i;
if n=s then IsPerfect:=true;
end;

[ROMA2PVT]

Vikenty
<<offtop>>
я конечно понимаю что прога то пустяковая.Но для человека который просто тупо кинул задание (ни здрасьте тебе ни до свидания) это надо за копеечку реализовывать.

[Vikenty]

Уже поздно