Вывести число n с максимальной суммой делителей

@Lar Lar · Регистрация: 27.02.2011

Студворк — интернет-сервис помощи студентам

дан промежуток от 2 до n
вывести число n с максимальной суммой делителей

@rubisgt · 04.03.2011, 19:36

делители какие? у числа бесконечное число делителей. или только которые делят нацело??
или я не понял задачу (

@Lar Lar · 04.03.2011, 20:41 **[ТС]**

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

@kofee"k · 04.03.2011, 21:12

Pascal

program tt;
uses crt;
var
  i,k,max,n,c:integer;
  sum:array[1..100] of integer;
begin
  ClrScr;
  writeln('Введите n');
  readln(n);
  for i:=2 to n do
    write(i,' ');
  k:=2;
  i:=1;
  for i:=1 to n do
    for k:=2 to n do
      if k mod i =0 then begin
        sum[k]:=sum[k]+i;
        c:=k;
      end;
  max:=sum[1];
  for i:=2 to n do
    if sum[i]>max then begin
      max:=sum[i];
      c:=i;
    end;
  writeln;
  writeln('Число с максимальной суммой делителей: ',с,' sum= ',sum[c]);
  readln;
end.

Если правильно понял задание...

@Lar Lar 0 / 0 / 0 Регистрация: 27.02.2011 Сообщений: 9
		1
	Вывести число n с максимальной суммой делителей 04.03.2011, 18:44. Показов 1965. Ответов 3 Метки нет (Все метки) дан промежуток от 2 до n вывести число n с максимальной суммой делителей 0

@rubisgt 55 / 35 / 14 Регистрация: 28.02.2011 Сообщений: 184
	04.03.2011, 19:36	2
	делители какие? у числа бесконечное число делителей. или только которые делят нацело?? или я не понял задачу ( 0

@Lar Lar 0 / 0 / 0 Регистрация: 27.02.2011 Сообщений: 9
	04.03.2011, 20:41 [ТС]	3
	На интервале от [2;n] найти натуральное число с максимальной суммой делителей n-вводим с клавы 0

	04.03.2011, 21:12

Опции темы

Вывести число n с максимальной суммой делителей

Решение