Question

Помогите, пожалуйста, с 11 заданием, буду очень благодарна ♥️ (pascal)

Answer 1

// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  for var m:=1 to ReadInteger('n=')-1 do begin
    var s:=0;
    for var i:=1 to m div 2 do
      if m mod i=0 then s+=i;
    if m=s then Writeln(m)
    end
end.

Пример
n= 10000
6
28
496
8128

Answer 2

Var a,x,y,z:integer;
Begin
Write('Введите число: ');
Readln(a);
For x:=1 to a-1 do Begin
                              y:=1;
                              z:=0;
                              While y<x do If x mod y = 0 then Begin
                                                                                  z:=z+y;
                                                                                  y:=y+1;
                                                                                  end
                                                                          else y:=y+1;
                              If z=x then Writeln(x);                   
                              end;
End.