Задано целое число N. Найти ближайшее к нему совершенное число.

1
Нужно прописать в паскале
Через циклы
Совершенное число? Как это понимать?
Совершенное число — натуральное число, равное сумме всех своих собственных делителей (т. е. всех положительных делителей, отличных от самого числа)

Ответы и объяснения

  • Segrif
  • почетный грамотей
2013-10-29T16:32:54+00:00
Var c,i:integer;
function sov(k:integer):boolean;
var j,s:integer;
begin
result:=false;
s:=0;
for j:=1 to k div 2 do if k mod j=0 then s:=s+j;
if s=k then result:=true;
end;
begin
read(c);
i:=1;
while (sov(c+i)=false) and (sov (c-i)=false) do i:=i+1;
if sov(c+i)=true then writeln(c+i) else writeln(c-i)
end.