Задание:
Задано целое число N. Найти ближайшее к нему совершенное число.
Решение:
Var c,i: integer; function sov (k: integer): boolean; var j,s: integer; beginresult: =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; beginread (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.
Знаете другой ответ?