29.10.2015, 20:07 | #1 (permalink) |
Новичок
Регистрация: 29.10.2015
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите решить задачи
2. В диапазоне [M; N] найти число с максимальной суммой делителей |
29.10.2015, 20:07 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Дам вам такой совет - прочитайте эти темы ТОИ. Помогите решить задачи Помогите решить задачи на C++ Помогите решить задачи Помогите решить задачи |
30.10.2015, 12:54 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
Var M,N,K,Kmax,S,Smax,i:Integer; Begin Write('M = '); Readln(M); Write('N = '); Readln(N); Kmax:=M; Smax:=0; for K:=M to N do begin S:=0; for i:=1 to K do if (K mod i)=0 then Inc(S,i); if S>Smax then begin Smax:=S; Kmax:=K; end; end; Writeln('Result: ',Kmax); Readln End. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|