Винтервале [2; n] найти натуральное число с максимальной суммой делителей.

Vivdarkbloom,  к  сожалению,  нашел  сумму  всех  чисел  от  2  до  n,  а  не  число  с  максимальной суммой делителей.  надо  было  так,  пишу  на visual  basic sub  command1_click() rem программа  запускается  по  нажатию  кнопки  command1 на  форме dim  n  as  integer, summa  as  integer,  max  as  integer dim maxn as integer, i as  integer,  k  as  integer n  =  text1.text  '  это  текстовое  поле  на  форме,  куда  вводится  n max  =  1: maxn  =  1 for i  = 2  to  n summa  =  0 for  k  =  1  to  i if  i  mod  k  =  0  then  summa  =  summa +  k  '  если  k  -  делитель  i,  то  прибавляем next  k if  summa  >   max  then '  если  сумма  больше  максимальной       max =  summa  ' сохраняем  сумму       maxn =  i  '  и  сохраняем  число  i. end  if next  i text2.text  =  maxn '  это  второе  текстовое  поле, куда  выводится  результат end  sub

Program natur;     uses crt;   var a, summa, n : integer;   begin   clrscr;   write('n=');   readln(n);   {цикл с предусловием}  a: =2;     summa: =0;     while a< =n do    begin    summa: = summa + a;     a : = a + 1    end;   writeln (' результат первого суммирования: ' , summa) ;   {цикл с постусловием}   а: =1;   summa: =0;     repeat    summa: =summa+ а;     а: =а+1    until a> n;   writeln   (' результат второго суммирования: ' , summa) ;   {цикл с параметром}  summa: =0;   for а : = 2 to n do  summa : =summa + a;   writeln (' результат третьего суммирования: ', summa); end

1. количество ядер процессора  2. частота процессора и частота системной шины (fsb) процессора  3. объем и количество кэш-памяти процессора (cpu)4. совпадение частоты системной шины cpu и материнской платы5. частота оперативной памяти (ram) и частота шины памяти материнской платы  6. объем оперативной памяти  7. используемый на материнской плате чипсет (intel, via, sis, nvidia, ati/amd)8. используемая графическая подсистема – встроенная в материнскую плату или дискретная  9. тип интерфейса винчестера (hdd) – параллельный ide или последовательные sata и sata-210. кэш винчестера

и это еще не все, можно продолжать. 

program xxx;

var k, d, n : integer;

          pr : boolean;

begin

  writeln('введите число k=');

  readln(k);

  d: =2;

  n: = k div 2;

  pr: =false;

  while (d< =n) and not(pr) do

      if k mod d = o then pr: =true else d: =d+1;

  if pr then writeln (k, '- нет, число не простое') else writeln (k, ' да,число простое');

    readln

end.