СРОЧНО ПАСКАЛЬ.. . помогите
1) На натуральном отрезке чисел [a,b]. Найти все совершенные числа (Справка: число является совершённым, если оно равно сумме своих делителей без самого числителя. Н-р 6=3+2+1.
2) Дан натуральный отрезок чисел [a,b]. Найти те числа этого отрезка, суммы делителей которых больше заданного числа X.

  • 1)
    var a,b,i,j,s:integer;
    begin
    write('a b ? '); readln(a,b);
    for i:=a to b do
    begin
    s:=0; for j:=1 to i-1 do if i mod j=0 then s:=s+j;
    if i=s then writeln(i)
    end;
    readln
    end.

    2)
    var a,b,i,j,s,x:integer;
    begin
    write('a b x ? '); readln(a,b,x);
    for i:=a to b do
    begin
    s:=0; for j:=1 to i-1 do if i mod j=0 then s:=s+j;
    if s> x then writeln(i)
    end;
    readln
    end.

  • Пишешь функцию нахождения делителей для каждого числа, таких не много чисел, проверяй. Что если делится на цело, то делитель будет 1 + делитель + частное. Если оно равно нашему числу то выводи и проходи фором до конца промежутком)

Вас заинтересует