Найти все числа, сумма делителей которых равна этому числу, в интервале [1;100], используя подпро­грамму
нахождения  суммы делителей. 

паскаль

  • если считать что сумируем делители числа кроме него самого то рекшение будет таким:
    program zadacha;
    var i,p,s,q,j:integer;
    begin
    for i:=1 to 100 do
    begin
    s:=0;
    for p:=1 to i-1 do
    begin
    if(i mod p=0)then s:=s+p;
    end;
    if(s=i)then writeln(i);
    end;
    end.

    если само число считать за делителя то здесь только один вариант ответа   (1)
    program gt;
    var i:integer;
    begin
    writeln(1);
    end.


See also: