Решить на питоне, числовая дружба оставьте программу для решения . два натуральных числа называются дружественными, если каждое из них равно сумме всех делителей другого (само другое число в качестве делителя не рассматривается например, 220 (1+2+4+5+10+11+20+22+44+55+110=284) и 284 (1+2+4+71+142=220) – дружественные числа. пары необходимо выводить по одной в строке, разделяя пробелами. найти все пары натуральных дружественных чисел, меньших 10 000. формат вывода на каждой строке пара натуральных дружественных чисел, числа в паре расположены в порядке возрастания.

for i in range(1, 10000):

   k = 0

   n = 0

   for x in range(1, i):

       if i % x == 0:

           k += x

   for j in range(1, k):

       if k % j == 0:

           n += j

   if i == n and i != k and i == min(i, k):

       print(i, k)

Программа:

type Student=record

 FIO:string;

 year:integer;

 obj:string;

 mark:integer;

end;

var

 i:integer;

 objec:string;

 s: array [1..3] of Student;

BEGIN

 // 1-ый студент

 s[1].FIO:= 'Петров П.П.';

 s[1].mark:= 3;

 s[1].obj:= 'Математика';

 s[1].year:= 1997;

 // 2-ой студент

 s[2].FIO:= 'Иванов И.И.';

 s[2].mark:= 5;

 s[2].obj:= 'Математика';

 s[2].year:= 1999;

 // 3-ий студент

 s[3].FIO:= 'Сидоров С.С.';

 s[3].mark:= 5;

 s[3].obj:= 'Математика';

 s[3].year:= 1998;

 write('Введите предмет: ');

 readln(objec);

 writeln('Список студентов по заданным параметрам:');

 for i:=1 to 3 do

   if (s[i].obj = objec) and (s[i].mark = 5) then

     writeln(s[i].FIO, ' - ' , s[i].year)

END.

Объяснение:

 var i,s:integer;

 begin

   i:=10;s:=0;

   for i:=10 to 99 do

   if i mod 2<>0 then s:=s+i;

  writeln('Сумма нечетных 2-значных чисел(for)',s);

  readln;

  i:=10;s:=0;

  while i<=99 do

    begin

      if i mod 2<>0 then s:=s+i;

      i:=i+1;

    end;

    writeln('Сумма нечетных 2-значных чисел(while)',s);

    readln;

    i:=10;s:=0;

   repeat

    if i mod 2<>0 then s:=s+i;

    i:=i+1;

   until i>99 ;

   writeln('Сумма нечетных 2-значных чисел(repeat)',s);

   readln;

end.