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

Question

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

Answer 1

55

alexshr1

25 февраля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: