Два натуральных числа называются "дружественными", если каждое из них равно сумме всех делителей другого, за исключением его самого (таковы, например, числа 220 и 284)
помогите вставить функции . программа работает правильно, только без функций , надо функции вставить
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 | program Project16;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
n,i,j,k,m: integer ;
sum_del, sumto: word ;
begin
try
writeln ( 'vvedite n' );
readln (n);
for i:= 1 to n- 1 do
begin sum_del:= 0 ;
for m:= 1 to i- 1 do
if i mod m= 0
then
sum_del:=sum_del +m;
sumto:= 0 ;
for m:= 1 to sum_del- 1 do
if sum_del mod m= 0
then
sumto:=sumto +m;
if sumto=i
then
writeln ( 'dryjestvennye chisla ' ,sum_del, ' & ' , i );
end ;
except
on E: Exception do
Writeln (E . ClassName, ': ' , E . Message);
end ;
readln
end .
|