Число називається "досконалим",якщо воно дорівнює сумі всіх додатних дільників,окрім самого себе (наприклад,6=1+2+3).Визначіть "досконалі" числа в першій тисячі.
{совершенные числа}
function sovr(var n: integer): boolean;
var i,s: integer;
begin
s:=1;
for i:=2 to (n div 2) do
if (n mod i)=0 then s:=s+i;
if (s>1) and (s=n) then Result:=true
else Result:=false;
end;
{основная программа}
var i: integer;
begin
for i:=1 to 1000 do
if sovr(i) then writeln(совершенное число: ,i);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
