Найти натуральное число из интервала от a до b с максимальной суммой делителей

@Владимир228 · Регистрация: 17.05.2018

Найти натуральное число из интервала от a до b с максимальной суммой делителей.

@JuriiMW · 18.05.2018, 05:25

Pascal

1
2
3

begin
  WriteLn(Range(ReadInteger,ReadInteger).Select(x->(x,Range(1,x).Where(d->x mod d=0).Sum)).MaxBy(x->x[1])[0]);
end.

@Владимир228 0 / 0 / 0 Регистрация: 17.05.2018 Сообщений: 2
		1
	Найти натуральное число из интервала от a до b с максимальной суммой делителей 17.05.2018, 20:20. Показов 1667. Ответов 1 Метки нет (Все метки) Найти натуральное число из интервала от a до b с максимальной суммой делителей. 0

	18.05.2018, 05:25

Опции темы

Решение