С клавиатуры вводятся два натуральных числа a, b (a меньше =b). Найти в диапазоне от a до b (включая границы) число, имеющее максимальную сумму делителей. (PASCAL)

С клавиатуры вводятся два натуральных числа a, b (a<=b). Найти в диапазоне от a до b (включая границы) число, имеющее максимальную сумму делителей. (PASCAL)
Гость
Ответ(ы) на вопрос:
Гость
//Pascal   var a,b, I, maxsumm, max : integer;     function summdel(x:integer):integer; //результат - сумма делителей х   var k,sum:integer;   begin     sum:=0;     for k := 1 to x div 2 + 1 do       if x mod k = 0 then sum:= sum+k;     summdel:=sum;   end;     begin    writeln('Введите границы a,b ');    readln(a,b);     maxsumm := 1;     max := 1;     for i := a to b do      begin         if summdel(i) > maxsumm then           begin maxsumm:= summdel(i);             max := i;           end;      end;      writeLn('Максимальная сумма делителей - ', maxsumm, ' число - ',max)   end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы