СРОЧНО! Напишите логическую функцию в паскале, которая определяет верно ли, что…

Question

36

СРОЧНО! Напишите логическую функцию в паскале, которая определяет верно ли, что число N- совершенное, т.е. равно сумме своих делителей, меньших егосамого

в избранное ссылка

Знаете ответ?

roms66 · Accepted Answer

90

roms66

16 августа 2022

function Sov (a: integer): boolean; var i, y: integer; begin for i: =1 to (a — 1) do if (frac (a / i)=0) then y: =y+i; result: =(y=a); end;

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

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