Винтервале [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

Вот так решается без массивов: program score; var a,b,c,d,sc: integer;     res: integer; begin   write('input 1st exam score: ');   readln(a);   write('input 2nd exam score: ');   readln(b);   write('input 3rd exam score: ');   readln(c);   write('input 4th exam score: ');   readln(d);       write('input pass score: ');   readln(sc);   if (a+b+c+d) < sc then writeln ('not passed') else writeln('passed'); end.

1а)уши б) глаза, уши в) глаза г) глаза, нос д) язык е) уши ж) кожа 2 а) информативное (если ранее вы этого не знали, иначе неинформативное) б) неинформативное, т.к. это общеизвестный факт в) неинформативное - вы это знали, какая вчера была погода г) информативное, т.к. несет новые знания д) неинформативное, т.к. непонятное для вас е) зависит от того знаете ли вы, что dog на означает "собака". если нет - то информативное, в противном случае неинформативное 3 а) процедурный тип б) декларативный тип в) процедурный тип г) процедурный тип